Excel VBA質問箱 IV

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

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


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

65182 / 76734

←次へ　｜　前へ→


	【16127】Re:別のシートの値をバー（図形）を動か...

さる

- 04/7/17(土) 1:27 -


	引用なし

	パスワード

IROC　様
間違えて申し訳はありません。
>IF文を直したけどコンパインじゃなくてデバックを出るけど
>どこか悪いですか？
>私はVBA初心者なのでご指導お願いします。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>Dim myPoint As String
>Dim ws As Worksheet, ws_d As Worksheet
>Dim r As Range 'FIND用
>Dim i As Long
>　　
>　　Set ws_d = Worksheets("data")
>　　Set ws = Worksheets("ストレス判定")
>　　
>　　If Target.Address = Range("AW2").Address Then
>　
>　　　　myPoint = Target.Value 'ポイント
>　　　　　　
>　　　　'ポイントをもとに、dataシートのリストを検索
>　　　　Set r = ws_d.Range("B2:BA2").Find(myPoint, LookIn:=xlValues, LookAt:=xlWhole) '仕事
>　　　
>　　　　'リストに見つからないとき
>　　　If r Is Nothing Then
>　　　　　　MsgBox "無効な値です"
>　　　　　　Exit Sub
>　　　　End If
>　　　　
>　　　　i = r.Offset(1).Value '図形位置
>　　　　
>　　　　ws.Shapes("仕事").Top = ws.Range("AV5").Top
>　　　　
>　　　　'セル値に応じて横方向にオフセット
>　　　　ws.Shapes("仕事").Left = ws.Range("AV5").Offset(0, i - 1).Left
>　　　　
>　　End If
>　　
>　　 If Target.Address = Range("AX2").Address Then
>　　 myPoint = Target.Value 'ポイント
>　　 'ポイントをもとに、dataシートのリストを検索
>　　 Set r = ws_d.Range("B6:AR6").Find(myPoint, LookIn:=xlValues, LookAt:=xlWhole) '精神的
>　　 'リストに見つからないとき
>　　　If r Is Nothing Then
>　　　　　　MsgBox "無効な値です"
>　　　　　　Exit Sub
>　　　　End If
>　　 i = r.Offset(1).Value '図形位置
>　　　ws.Shapes("精神").Top = ws.Range("D25").Top
>　　 'セル値に応じて横方向にオフセット
>　　 ws.Shapes("精神").Left = ws.Range("D25").Offset(0, i - 1).Left
>　　 End If
>　　
>　　If Target.Address = Range("Ay2").Address Then
>　　myPoint = Target.Value 'ポイント
>　　'ポイントをもとに、dataシートのリストを検索
>　　Set r = ws_d.Range("B10:AF10").Find(myPoint, LookIn:=xlValues, LookAt:=xlWhole) '身体的
>　　'リストに見つからないとき
>　　　If r Is Nothing Then
>　　　　　　MsgBox "無効な値です"
>　　　　　　Exit Sub
>　　　　End If
>　　 i = r.Offset(1).Value '図形位置
>　　　ws.Shapes("身体").Top = ws.Range("AV25").Top
>　　 'セル値に応じて横方向にオフセット
>　　 ws.Shapes("身体").Left = ws.Range("AV25").Offset(0, i - 1).Left
>　　 End If
>　　
>　　If Target.Address = Range("Az2").Address Then
>　　myPoint = Target.Value 'ポイント
>　　'ポイントをもとに、dataシートのリストを検索
>　　 Set r = ws_d.Range("B14:K14").Find(myPoint, LookIn:=xlValues, LookAt:=xlWhole) '疲労
>　　 'リストに見つからないとき
>　　　If r Is Nothing Then
>　　　　　　MsgBox "無効な値です"
>　　　　　　Exit Sub
>　　　　End If
>　　 i = r.Offset(1).Value '図形位置
>　　 ws.Shapes("疲労").Top = ws.Range("D43").Top
>　　 'セル値に応じて横方向にオフセット
>　　 ws.Shapes("疲労").Left = ws.Range("D43").Offset(0, i - 1).Left
>　　 End If
>　　
>　　If Target.Address = Range("BA2").Address Then
>　　 myPoint = Target.Value 'ポイント
>　　'ポイントをもとに、dataシートのリストを検索
>　　　 Set r = ws_d.Range("B18:T18").Find(myPoint, LookIn:=xlValues, LookAt:=xlWhole) '抑うつ
>　　　'リストに見つからないとき
>　　　If r Is Nothing Then
>　　　　　　MsgBox "無効な値です"
>　　　　　　Exit Sub
>　　　　End If
>　　 i = r.Offset(1).Value '図形位置
>　　 ws.Shapes("抑うつ").Top = ws.Range("AV43").Top
>　　　　'セル値に応じて横方向にオフセット
>　　　　ws.Shapes("抑うつ").Left = ws.Range("AV43").Offset(0, i - 1).Left
>　　　 End If
>End Sub

0 hits

▼

【16065】別のシートの値をバー（図形）を動かす方法 さる 04/7/15(木) 17:27