[ VBA ] KeyDown と KeyPress イベントの発生条件と順序 – 偏差値40プログラマー
VBA を使ってテキストボックスやボタンなどのキーボード入力イベントである KeyDown と KeyPress イベントの違いや発生順序について、このページでは掲載しています。 イベントの発生順序 KeyDown イベントと KeyPress イベントの発生順序を以下のスクリプトを使って確認したところ、 KeyDown イベント KeyPress イベント となりました。 Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Debug.Print "KeyDown" If (KeyCode = vbKeyReturn) Then Debug.Print ("エンターキーが押された") End If ' シフトキーが押されているときは 1 となる
ユーザー名やコンピュータ名を取得する（WshNetworkオブジェクト）：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
次のサンプルは、Newキーワードを使用してWshNetworkオブジェクトを作成し、UserNameプロパティでユーザー名を、ComputerNameプロパティでコンピュータ名を取得しています。 なお、WshNetworkオブジェクトを利用するには、「Windows Script Host Object Model」に参照設定する必要があります。 ● サンプル ● Sub Sample() Dim WshNetworkObject As IWshRuntimeLibrary.WshNetwork '---(1) Set WshNetworkObject = New IWshRuntimeLibrary.WshNetwork '---(2) With WshNetworkObject MsgBox "ユーザー名： " & .UserName & vbCrLf _ & "コンピュータ名： "
Ｅｘｃｅｌのセルにユーザー名を表示する方法
ユーザー名とは、コンピュータにログオンしているユーザ名か、ツール＞オプション＞全般の「ユーザー名」で指定されているユーザ名かどちらでしょう。（後者はOfficeをインストールするときに指定するので、ログオンユーザ名と同じとは限りません） どちらにしろ、標準の関数では無理なので、ユーザ定義関数を作ります。 Alt+F11でVBAの画面を開き、「挿入」＞「標準モジュール」を選択します。Module1というのができて、右側にそのモジュールの入力画面になります。 ここで、右側に、 Function LoginName() As String LoginName = CreateObject("WScript.Network").UserName End Function Function ExcelUserName() As String ExcelUserName = Application.U
Excel VBA を学ぶなら moug モーグ | 即効テクニック | 複数のコントロールを操作する
UserFormにオプションボタン(OptionButton)を配置したとき、どのオプションボタンがオンになっているかを判定するには次のようにします。 なお、ここでは3つのオプションボタンが配置されていて、コマンドボタン(CommandButton)のクリックで判定するものとします。 Private Sub CommandButton1_Click() Dim buf As String If OptionButton1 Then buf = OptionButton1.Caption Else If OptionButton2 Then buf = OptionButton2.Caption Else buf = OptionButton3.Caption End If End If MsgBox buf & " が選択されています" End Sub あるいは次のようにSelect Ca
Excel、VBAのユーザーフォームのラベルで変数を…
ユーザーフォーム内でラベルを使用しています。 （d1、d2、d3…） この数値部分を変数で指定したいのですが、どのようにしたらいいですか？ UserForm1.d(i) = "… のようにしてみたのですが、ダメでした。 よろしくお願いします。
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Jedox – Planning your business with better insights and decisions