＃こんなの常識だろうか、関数苦手は、やはり辛い！.無駄な努力かも
＃検証しても何の役に立つか分かりません・・・]]>Offise2003と2007のボタンやメニューの位置http://hinekure.vba-soft.com/?eid=5607402008-05-09T12:57:27+09:002008-05-09T04:01:29Z2008-05-09T03:57:27ZOffise2003のボタンやメニューの位置が2007では分からない時は
下記URLが参考になります。
って、皆知ってる。遅〜〜^^;;;
↓
http://support.microsoft.com/kb/934714/ja hinekureExcel2007のひとり言
下記URLが参考になります。
って、皆知ってる。遅〜〜^^;;;
↓ http://support.microsoft.com/kb/934714/ja ]]>[ファイルを開く] ダイアログ ボックスを表示http://hinekure.vba-soft.com/?eid=5492362008-04-20T21:23:25+09:002008-04-20T12:24:18Z2008-04-20T12:23:25ZGetOpenFilenameメソッドのヘルプを参考にして下さい。^^；；
Sub Test()
Dim FName As Variant
FName = Application.GetOpenFilename()
MsgBox FName
End Subhinekureフォルダ/ファイルGetOpenFilenameメソッドのヘルプを参考にして下さい。^^；；
Sub Test()
Dim FName As Variant
FName = Application.GetOpenFilename()
MsgBox FName
End Sub]]>ステータスバーhttp://hinekure.vba-soft.com/?eid=5418242008-04-08T22:43:07+09:002008-04-08T13:43:46Z2008-04-08T13:43:07Zメッセージを表示します。
↓
Sub Test()
Application.StatusBar = "こんにちは hinekure です。^^"
End Sub
標準の表示に戻すには
↓
Sub Test2()
Application.StatusBar = False
End Sub
しかし、、、あまり目立ちません。。。hinekureその他
↓
Sub Test()
Application.StatusBar = "こんにちは hinekure です。^^"
End Sub
標準の表示に戻すには
↓
Sub Test2()
Application.StatusBar = False
End Sub
しかし、、、あまり目立ちません。。。]]>フォルダの削除(FileSystemObject)http://hinekure.vba-soft.com/?eid=5363302008-04-01T09:57:25+09:002008-04-01T00:57:48Z2008-04-01T00:57:25Zフォルダ内のサブフォルダ・ファイルも一度に削除します。
Bookを一度保存して下さい。
Sub Test()
Dim objFSO As Object
Dim myFolder As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
myFolder = ThisWorkbook.Path & "¥hoge"
objFS...hinekureフォルダ/ファイル
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
これじゃ駄目なのかな。。。
う〜ん、分からない。。。]]>指定したセルがウィンドウ内に表示されているかhttp://hinekure.vba-soft.com/?eid=5284082008-03-21T09:39:06+09:002008-03-21T00:43:05Z2008-03-21T00:39:06Z表示されていれば、True を
されてなければ、False です。
Sub Test()
MsgBox Not Intersect(ActiveWindow.VisibleRange, Range("A1")) Is Nothing
End Sub
※VisibleRangeプロパティ
関連項目対象使用例アプリケーション情報オブジェクトを返すプロパティです...hinekureセル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
]]>セルA1の文字列をB1からセルに一文字づつにhttp://hinekure.vba-soft.com/?eid=5215732008-03-11T20:30:58+09:002008-03-11T11:31:24Z2008-03-11T11:30:58Z関数でやればもっと簡単に出来るのでしょうね。。。
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....hinekureExcel-VBA のへっぽこコード
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]]>あまりはいくつhttp://hinekure.vba-soft.com/?eid=5176182008-03-06T21:53:22+09:002008-03-06T12:53:50Z2008-03-06T12:53:22Z【開発環境】 winXP + Excel2003VBA
【動作確認】 winXP + Excel2003/2007
制限時間内に割り算の「あまり」を選んでクリックして下さい。
+)左上の「S」ボタン、クリックでゲームスタート
+)間違ったらゲームオーバー
+)TIMEが0でゲームオーバー
ご利...hinekureExcel-Game
【動作確認】 winXP + Excel2003/2007
ご利用は自己責任でお願いします。 ダウンロードはこちら
]]>Cstr - なぜ省略されるんだろう・・・http://hinekure.vba-soft.com/?eid=5165222008-03-05T09:25:17+09:002008-03-05T00:25:48Z2008-03-05T00:25:17Zエラーにならないから別に気にしないのかな？
それとも、もっと奥が深いスッゴイ理由があるのでしょうか。
・・・私は、省略できない・・・たまに忘れるけど・・・
Sub Test()
Dim f As Long
With Worksheets("Sheet1")
For f = 1 To 10
.Ra...hinekureExcel-VBA のひとり言
それとも、もっと奥が深いスッゴイ理由があるのでしょうか。
・・・私は、省略できない・・・たまに忘れるけど・・・
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
]]>Mod演算子http://hinekure.vba-soft.com/?eid=5129002008-02-29T10:10:51+09:002008-02-29T01:13:20Z2008-02-29T01:10:51Z割り算の「あまり」ですね。^^；
あまり参考にならない・・・・・・
でも、、、よく使います。。。
Sub Test()
Dim myX As Long
Dim myY As Long
Dim f As Long
With Worksheets("Sheet1")
.Range("A1").Value = "問題"
.Range("B1").Value = ...hinekureExcel-VBA のへっぽこコード
あまり参考にならない・・・・・・
でも、、、よく使います。。。
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
