Excel VBA質問箱 IV

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

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


33423 / 76734 ←次へ | 前へ→

【48531】Re:図形を方向キーで操作するには?
発言  Tomo  - 07/4/20(金) 22:33 -

引用なし
パスワード
   ▼MONKEY さん:
>フリーフォームの頂点を方向キー(↑,↓,→,←)で移動したいんですが、

縦移動循環のサンプルかも・・・です。
こんなことでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  r1 = Target.Row
  c1 = Target.Column
  If (Cells(r1, c1) = "↑") Then
    縦循環 r1, c1, 1, 2, 5
  ElseIf (Cells(r1, c1) = "↓") Then
    縦循環 r1, c1, -1, 5, 2
  End If
End Sub

Private Sub 縦循環(r1, c1, sp, st, en)
    temp = Cells(st, c1)
    For r0 = st To en Step sp
      Cells(r0, c1) = Cells(r0 + sp, c1)
    Next
    Cells(en, c1) = temp
    Cells(st, c1).Select
End Sub
4 hits

【48510】図形を方向キーで操作するには? MONKEY 07/4/20(金) 8:35 質問
【48531】Re:図形を方向キーで操作するには? Tomo 07/4/20(金) 22:33 発言
【48541】Re:図形を方向キーで操作するには? ichinose 07/4/21(土) 18:23 発言
【48555】Re:図形を方向キーで操作するには? MONKEY 07/4/22(日) 15:03 お礼

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