Excel VBA質問箱 IV

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

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


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

33496 / 76807

←次へ　｜　前へ→


	【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

0 hits

▼

【48510】図形を方向キーで操作するには？ MONKEY 07/4/20(金) 8:35