Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41847 / 76736

←次へ　｜　前へ→


	【39965】Re:セルの値をlabelに表示

Statis - 06/7/4(火) 17:10 -


	引用なし

	パスワード

こんにちは

こんな感じです。

Dim i As Long, Co As Long
For i = 2 To 41
　　Select Case Val(Me.ComboBox1.Value)
　　　　　 Case 1 To 3: Co = 10
　　　　　 Case 4 To 11: Co = -1
　　　　　 Case 12: Co = -2
　　End Select
　　Me.Controls("label" & i + 41).Caption = _
　　　 Worksheets("Sheet1").Cells(Val(Me.ComboBox1.Value) + Co, i).Value
Next i

一言。
なぜ最初から実際の内容を記載しないのでしょうか？
最初の回答は何だったのでしょう。
それとの自分で変更しようとしても出来ず再度質問したのでしょうか？
以前同じような事があったような気がします。

0 hits

▼

【39938】セルの値をlabelに表示 taka 06/7/4(火) 15:33