ExcelVBAでハンドカーソルを使う

質問

Excel VBAで楽しみつつ勉強をしている者です。
色々と調べてみたのですがハッキリと結果が得られず質問させて頂きます。
ふと思ったのですが、もしかしてExcelにはハンドカーソルって無いんでしょうか？
また有るのならば、それで簡単にコピペとか切り貼りとか出来るのでしょうか？

以前、仕事用に作った生産工程表には、縦横２つ、計４つのセルを１グループにして
製品データや注番などを入力してます。
そのグループ郡が日付ごとに横にズラっと並んでいるのですが、
そのひとつにセルを当てるとハンドカーソルに変わり、「握る」とか「離す」等のビジュアルで
１グループを一度に選択、他の日付に持ってくるとか、工程表から外して、
まだ予定に入ってない製品データ郡へ追加するとかできれば
パズル感覚で楽しく工程表が作れると思った次第です。

こういった話題自体がネットにあまり無く、需要が少ないのかな？と感じておりますが
面白いと思うんです。ぜひやってみたくどなたかご助力お願い致します。

回答No.1

imogasi · ベストアンサー

ハンドカーソルという言葉は余り使われないようにおもうが。
カーソルの形状が手の形をしたものならAPIなどで設定できるようだ。WEBに記事が見つかる。
VBやACCESSでは出来るようだ。
ーー
http://www.seiji-tsubosaki.net/ExcelTech/ExcelVBASkillUpCollection/Contents_30.htm
エクセルVBAにも一部
Sub test01()
Application.Cursor = xlWait
End Sub
Sub test02()
Application.Cursor = xlDefault
End Sub
のようなのは可能。
ーーー
セルの範囲をクリックで定義選択するには「名前」の仕組みしかないと思う。
下記は思いつきのものだが（実際は質問のようなのはVBAで出来ないのではといいたいが）
A1,C1,E1,,G1,I1のセルの値でセル範囲に名前をつける。
Sub test03()
For j = 1 To 10 Step 2
Range(Cells(1, j), Cells(3, j + 1)).Name = Cells(1, j)
Next j
End Sub
ーー
Sheet1のシートモジュールで
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then
Application.EnableEvents = False
Worksheets("Sheet1").Select
x = "Sheet1!" & Target.Value
Range(x).Select
Application.EnableEvents = True
End If
End Sub
ーー
A1:I1に
あ い う え お
とセルにあるとする。（あといの間に１セルB1がある。それぞれ同じとする）
これでA1をクリックするとA1:B3を範囲選択することが出来る。
C1（いのセル）をクリックすると、C1:D3を範囲選択する。
複数セル範囲を指定するとエラーになるので（選択が１セルかどうか）本当は手当てが必要。
ーー
もしエラーなどで、イベントに反応しないようになったら、標準モジュールの
Sub test04()
Application.EnableEvents = True
End Sub
を実行。

お礼

なるほど、ＥｘｃｅｌＶＢＡは変更できるカーソルの種類はさびしいですね。
すごく面白いイベントだと思ったんですけど、ちょっと計画変更ですね、残念！
上記のコード、すごく面白いです。
こういうのが思いつくって言うのは発想力の違いですよねえ～
いままでSelectionChangeイベントは使ったことが無かったので、
パっと見てまだ理解できない部分も多いのですが、このコードを手本に
自分なりにアレンジすればなんとか半自動化までは出来るかなと。
一つずつ解析して理解します。
お手数おかけいたしました、ありがとう御座います。
これにて質問を締め切らせて頂きます。