hinekure Excel-VBAExcel-VBA の ひ と り 言・・・ & Excel Game
Total    Today    Yesterday 

| CALENDAR | RECOMMEND | ENTRY | COMMENT | TRACKBACK | CATEGORY | ARCHIVE | LINK | PROFILE |
Offise2003と2007のボタンやメニューの位置 12:57
Offise2003のボタンやメニューの位置が2007では分からない時は
下記URLが参考になります。
って、皆知ってる。遅〜〜^^;;;
   ↓
http://support.microsoft.com/kb/934714/ja
| Excel2007のひとり言 | comments(0) | trackbacks(0) | posted by hinekure
[ファイルを開く] ダイアログ ボックスを表示 21:23
GetOpenFilenameメソッドのヘルプを参考にして下さい。^^;;

Sub Test()
Dim FName As Variant
FName = Application.GetOpenFilename()
MsgBox FName
End Sub
| フォルダ/ファイル | comments(0) | trackbacks(0) | posted by hinekure
ステータスバー 22:43
メッセージを表示します。
   ↓
Sub Test()
Application.StatusBar = "こんにちは hinekure です。^^"
End Sub


標準の表示に戻すには
   ↓
Sub Test2()
Application.StatusBar = False
End Sub

しかし、、、あまり目立ちません。。。
| その他 | comments(0) | trackbacks(0) | posted by hinekure
フォルダの削除(FileSystemObject) 09:57
フォルダ内のサブフォルダ・ファイルも一度に削除します。

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

削除するフォルダの場所は変更して下さい。
   ↓
myFolder = ThisWorkbook.Path & "¥hoge"
| フォルダ/ファイル | comments(0) | trackbacks(0) | posted by hinekure
なぜ???Bookを開かずに操作したいの??? 10:40
分かりません。。。理解出来ません。。。
考えるだけでも面倒だと思うのですが、、、
タスクバーに表示されるのが嫌なのかな???
表示されるのは一瞬だと思うのですが。。。

Application.ScreenUpdating = False
   ・
   ・
   ・
Application.ScreenUpdating = True

これじゃ駄目なのかな。。。
う〜ん、分からない。。。
| Excel-VBA のひとり言 | comments(0) | trackbacks(0) | posted by hinekure
| 1/43 | >>