Excel VBA質問箱 IV

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

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


44117 / 76732 ←次へ | 前へ→

【37637】Re:ご回答ありがとうございます!
回答  Kein  - 06/5/13(土) 14:13 -

引用なし
パスワード
   Sub Add_MyLines()
  Dim xP1 As Single, yP1 As Single
  Dim xP2 As Single, yP2 As Single
  Dim yP3 As Single, yP4 As Single
 
  If TypeName(Selection) <> "Range" Then Exit Sub
  With Selection
   If .Rows.Count <> 3 Or .Columns.Count <> 2 Then
     MsgBox "3列×2行のセル範囲を選択して下さい", 48
     Exit Sub
   End If
   xP1 = .Left: yP1 = .Top: xP2 = xP1 + .Width
   yP2 = .Range("C4").Top: yP3 = .Range("A4").Top
   yP4 = .Range("B2").Top
  End With
  With ActiveSheet.Lines
   .Add xP1, yP1, xP2, yP2
   .Add xP1, yP3, xP2, yP4
  End With
End Sub

で、どうかな ?
3列×2行のセル範囲なら、どこでもその配置形態で直線を引けます。
0 hits

【37632】ご回答ありがとうございます! hanahana 06/5/13(土) 12:19 お礼
【37633】Re:ご回答ありがとうございます! HiroHiro 06/5/13(土) 12:43 発言
【37634】この方が良さそうです HiroHiro 06/5/13(土) 12:50 発言
【37637】Re:ご回答ありがとうございます! Kein 06/5/13(土) 14:13 回答

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