Excel VBA質問箱 IV

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

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


65181 / 76733 ←次へ | 前へ→

【16127】Re:別のシートの値をバー(図形)を動か...
質問  さる E-MAIL  - 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

2 hits

【16065】別のシートの値をバー(図形)を動かす方法 さる 04/7/15(木) 17:27 質問
【16067】Re:別のシートの値をバー(図形)を動かす... IROC 04/7/15(木) 17:51 回答
【16068】Re:別のシートの値をバー(図形)を動かす... Asaki 04/7/15(木) 17:52 回答
【16110】Re:別のシートの値をバー(図形)を動かす... さる 04/7/16(金) 18:38 質問
【16112】Re:別のシートの値をバー(図形)を動かす... IROC 04/7/16(金) 18:45 回答
【16115】Re:別のシートの値をバー(図形)を動かす... さる 04/7/16(金) 19:36 発言
【16117】Re:別のシートの値をバー(図形)を動かす... IROC 04/7/16(金) 22:00 回答
【16120】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 0:30 質問
【16121】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 0:37 回答
【16125】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 1:13 質問
【16126】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 1:23 回答
【16127】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 1:27 質問
【16140】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 15:04 お礼
【16146】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 16:10 回答
【16148】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 17:20 質問
【16149】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 17:33 回答
【16151】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 20:05 質問
【16152】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 20:20 回答

65181 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free