Option Explicit Private Declare Function OpenProcess Lib "kernel32.dll" ( _ ByVal dwAccess As Long, _ ByVal fInherit As Integer, _ ByVal hObject As Long _ ) As Long Private Declare Function WaitForSingleObject Lib "Kernel32" ( _ ByVal hHan…

マウスクリックや矢印キーで移動した場合は、イベントをキャッチしてくれるのに With Me.MSHFlexGrid .Row = .Row + 1 End With みたいにコードでセル移動させた場合は、キャッチしてくれない・・・ (2008/04/02 07:44 追記) 結局、EnterCell イベントプロシ…

FizzBuzzとは - はてなキーワード VB で書いてみた。こんな感じかなぁ。 Option Explicit Public Sub FizzBuzzProblem() Dim i As Integer Dim output As String For i = 1 To 100 Select Case IIf(i Mod 3 = 0, 0, 1) & ":" & IIf(i Mod 5 = 0, 0, 1) Case …

Big Sky :: 自作のWindowsアプリケーションにJavaScriptで動作するプラグイン機能を実装する方法 こちらのサイトで、"ScriptControl" というコンポーネントがあることを知りました。 早速、これを VB で使ってみました。 Private Sub Command1_Click() Dim j…

ので、色々やってみて分かったことをメモ。 Dim file As String = "hoge.csv" Dim hoge As String() = System.IO.File.ReadAllLines(file, System.Text.Encoding.Default) 第2引数を指定すれば、OK! csv ファイルの文字コードが Shift_JIS か UTF-8 (BOM 付…

大したことではないんだけど、今日知ったことなので書いておきます。 Format$("1989/01/07", "gggee年mm月dd日") '昭和64年01月07日 Format$("1989/01/08", "gggee年mm月dd日") '平成01年01月08日 しっかり変換してくれるんですね。

http://www.bcap.co.jp/hanafusa/VBHLP/excel03.htm 上のサイトを参考にして書いてみました。 Option Explicit Private Sub Command1_Click() On Error Resume Next Dim ExcelApp As Object Dim FileName As String Dim i As Integer Set ExcelApp = GetObje…