VBA共通:半角カタカナを全角カタカナ、全角英数字を半角に変換するユーザー定義関数

ExcelのVBAを使用してマウスポインターの形を変更するサンプルプログラムを覚書。

思い出すのに少し時間がかかったから覚書。
スポンサードリンク


Excelのマウスの形状をVBAで変更するコード

Excelのマウスの形状をVBAで変更するコードは以下の1行でOKです。

例えば、プログラム実行中に待ち状態を表す砂時計のポインタに変更する場合は、こんな感じ。


 Application.Cursor = xlWait

VBAで指定できるマウスポインターの形状について

指定できる形状はデフォルトの形状を合わせると4つ。
指定する値 マウスポインターの形状
xlWait 待ち状態、砂時計
xlIBeam 文字入力時の""I""形状、アイビーム
xlNorthwestArrow 北西向きの矢印
xlDefault デフォルトの形状

マウスポインターの形状を変更するサンプルプログラム

以下、約5秒ごとにマウスの形状が上記4つに変わるサンプルプログラム。

Sub MouseTEST()
Dim temp

	Application.Cursor = xlWait
	temp = Timer
		Do Until Timer - temp >= 5
		   
		Loop
   
	Application.Cursor = xlIBeam
	temp = Timer
		Do Until Timer - temp >= 5
		   
		Loop

	Application.Cursor = xlNorthwestArrow
	temp = Timer
		Do Until Timer - temp >= 5
		   
		Loop
   	
	'元の形状に戻す
	Application.Cursor = xlDefault
   
End Sub

Accessの場合は、Screenオブジェクトなんだけどなぁ...Officeアプリケーションなんだから統一してくれればいいのになぁ。

スポンサードリンク

  

関連記事