hinekure Excel-VBA
http://hinekure.vba-soft.com/
Excel-VBA の ひ と り 言・・・ & Excel Game ja
http://hinekure.vba-soft.com/?eid=597914
VisualBasic開発環境のメインウィンドウを表示って出来るけど、意味無いですよね。
使い道ってあるのかな・・・・・・
Sub Test()
Application.VBE.MainWindow.Visible = True
End Sub
※Excel.Application.VBE.MainWindow.Visible = True
とした方が良いかも。^^；；
使い道ってあるのかな・・・・・・
Sub Test()
Application.VBE.MainWindow.Visible = True
End Sub
※Excel.Application.VBE.MainWindow.Visible = True
とした方が良いかも。^^；；
]]>Excel-VBA のひとり言2008-06-28T21:57:00+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=576036
文字列の置換ワークシート1のセルA1:B5に入力されている[ B ] を [ X ] に置換します。
Sub Test()
With Worksheets("Sheet1").Range("A1:B5")
.Value = "ABABAB"
MsgBox "[ B ] を [ X ] に置換します。 ", vbOKOnly, " hinekure"
.Replace What:="B", Re...
Sub Test()
With Worksheets("Sheet1").Range("A1:B5")
.Value = "ABABAB"
MsgBox "[ B ] を [ X ] に置換します。 ", vbOKOnly, " hinekure"
.Replace What:="B", Replacement:="X"
End With
End Sub
]]>セル2008-06-03T12:00:03+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=565512
関数とVBAの長さ0の文字列についてVBAで
Worksheets("Sheet1").Range("A1").Value = ""
とすれば
セルの書式が文字列の時は長さ0文字の文字列になり
Empty値にならない。
ですよね。^^;;
で、関数あまり使わないので
関数でよく使われる""が気になりました。。。
例えば
=IF(A1="","",A1)
...
Worksheets("Sheet1").Range("A1").Value = ""
とすれば
セルの書式が文字列の時は長さ0文字の文字列になり
Empty値にならない。
ですよね。^^;;
＃こんなの常識だろうか、関数苦手は、やはり辛い！.無駄な努力かも
＃検証しても何の役に立つか分かりません・・・
]]>Excel-VBA のひとり言2008-05-16T23:45:00+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=560740
Offise2003と2007のボタンやメニューの位置Offise2003のボタンやメニューの位置が2007では分からない時は
下記URLが参考になります。
って、皆知ってる。遅〜〜^^;;;
↓
http://support.microsoft.com/kb/934714/ja
下記URLが参考になります。
って、皆知ってる。遅〜〜^^;;;
↓ http://support.microsoft.com/kb/934714/ja
]]>Excel2007のひとり言2008-05-09T12:57:27+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=549236
[ファイルを開く] ダイアログ ボックスを表示GetOpenFilenameメソッドのヘルプを参考にして下さい。^^；；
Sub Test()
Dim FName As Variant
FName = Application.GetOpenFilename()
MsgBox FName
End SubGetOpenFilenameメソッドのヘルプを参考にして下さい。^^；；
Sub Test()
Dim FName As Variant
FName = Application.GetOpenFilename()
MsgBox FName
End Sub
]]>フォルダ/ファイル2008-04-20T21:23:25+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=541824
ステータスバーメッセージを表示します。
↓
Sub Test()
Application.StatusBar = "こんにちは hinekure です。^^"
End Sub
標準の表示に戻すには
↓
Sub Test2()
Application.StatusBar = False
End Sub
しかし、、、あまり目立ちません。。。
↓
Sub Test()
Application.StatusBar = "こんにちは hinekure です。^^"
End Sub
標準の表示に戻すには
↓
Sub Test2()
Application.StatusBar = False
End Sub
しかし、、、あまり目立ちません。。。
]]>その他2008-04-08T22:43:07+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=536330
フォルダの削除(FileSystemObject)フォルダ内のサブフォルダ・ファイルも一度に削除します。
Bookを一度保存して下さい。
Sub Test()
Dim objFSO As Object
Dim myFolder As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
myFolder = ThisWorkbook.Path & "¥hoge"
objFS...
Bookを一度保存して下さい。
Sub Test()
Dim objFSO As Object
Dim myFolder As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
myFolder = ThisWorkbook.Path & "¥hoge"
objFSO.DeleteFolder myFolder
Set objFSO = Nothing
End Sub
これじゃ駄目なのかな。。。
う〜ん、分からない。。。
]]>Excel-VBA のひとり言2008-03-22T10:40:40+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=528408
指定したセルがウィンドウ内に表示されているか表示されていれば、True を
されてなければ、False です。
Sub Test()
MsgBox Not Intersect(ActiveWindow.VisibleRange, Range("A1")) Is Nothing
End Sub
※VisibleRangeプロパティ
関連項目対象使用例アプリケーション情報オブジェクトを返すプロパティです...True を
されてなければ、False です。
Sub Test()
MsgBox Not Intersect(ActiveWindow.VisibleRange, Range("A1")) Is Nothing
End Sub
Sub Test()
Worksheets("Sheet1").Range("B2").CurrentRegion.Select
End Sub
]]>Excel-VBA のひとり言2008-03-13T10:20:59+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=521573
セルA1の文字列をB1からセルに一文字づつに関数でやればもっと簡単に出来るのでしょうね。。。
VBAでも、もっと正確に短く出来るんだろうな・・・
Sub Test()
Dim WS As Worksheet
Dim buf As Variant
Dim myLen As Long
Dim myRng As String
Dim f As Long
Set WS = Worksheets("Sheet1")
With WS....
VBAでも、もっと正確に短く出来るんだろうな・・・
Sub Test()
Dim WS As Worksheet
Dim buf As Variant
Dim myLen As Long
Dim myRng As String
Dim f As Long
Set WS = Worksheets("Sheet1")
With WS.Range("B1:IV1")
.ClearContents
.NumberFormatLocal = "@"
End With
myRng = WS.Range("A1").Value
myLen = Len(myRng)
If myLen < 1 Then MsgBox "NG": Exit Sub
ReDim buf(1 To 1, 1 To myLen)
For f = 1 To myLen
buf(1, f) = Mid(myRng, f, 1)
Next
WS.Range("B1").Resize(1, myLen).Value = buf
End Sub
]]>Excel-VBA のへっぽこコード2008-03-11T20:30:58+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=517618
あまりはいくつ【開発環境】 winXP + Excel2003VBA
【動作確認】 winXP + Excel2003/2007
制限時間内に割り算の「あまり」を選んでクリックして下さい。
+)左上の「S」ボタン、クリックでゲームスタート
+)間違ったらゲームオーバー
+)TIMEが0でゲームオーバー
ご利...
【動作確認】 winXP + Excel2003/2007
ご利用は自己責任でお願いします。 ダウンロードはこちら
]]>Excel-Game2008-03-06T21:53:22+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=516522
Cstr - なぜ省略されるんだろう・・・エラーにならないから別に気にしないのかな？
それとも、もっと奥が深いスッゴイ理由があるのでしょうか。
・・・私は、省略できない・・・たまに忘れるけど・・・
Sub Test()
Dim f As Long
With Worksheets("Sheet1")
For f = 1 To 10
.Ra...
それとも、もっと奥が深いスッゴイ理由があるのでしょうか。
・・・私は、省略できない・・・たまに忘れるけど・・・
Sub Test()
Dim f As Long
With Worksheets("Sheet1")
For f = 1 To 10 .Range("A" & f).Value = f
Next
End With
End Sub
こう書かないと何か変な感じがする。。。
.Range("A" & f).Value = f
↓
.Range("A" & CStr(f)).Value = f
]]>Excel-VBA のひとり言2008-03-05T09:25:17+09:00hinekurehinekure
http://hinekure.vba-soft.com/?eid=512900
Mod演算子割り算の「あまり」ですね。^^；
あまり参考にならない・・・・・・
でも、、、よく使います。。。
Sub Test()
Dim myX As Long
Dim myY As Long
Dim f As Long
With Worksheets("Sheet1")
.Range("A1").Value = "問題"
.Range("B1").Value = ...
あまり参考にならない・・・・・・
でも、、、よく使います。。。
Sub Test()
Dim myX As Long
Dim myY As Long
Dim f As Long
With Worksheets("Sheet1")
.Range("A1").Value = "問題"
.Range("B1").Value = "あまり"
For f = 2 To 11
myX = Int(Rnd() * 7 + 3) '3〜9の乱数
myY = Int(Rnd() * 90 + 10) '10〜99の乱数
.Range("A" & CStr(f)).Value = myY & " ÷ " & myX
.Range("B" & CStr(f)).Value = myY Mod myX
Next
End With
End Sub
