Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1017 / 13644 ツリー ←次へ | 前へ→

【76870】ユーザー書式設定 00:00表記にかんして 金魚 15/3/29(日) 15:37 質問[未読]
【76871】Re:ユーザー書式設定 00:00表記にかんして β 15/3/29(日) 17:41 発言[未読]
【76873】Re:ユーザー書式設定 00:00表記にかんして 金魚 15/3/29(日) 17:55 お礼[未読]

【76870】ユーザー書式設定 00:00表記にかんして
質問  金魚  - 15/3/29(日) 15:37 -

引用なし
パスワード
   ファルダ「CSV」
  |_トマトファルダ…*.CSV 複数
  |
  |_ピーマンファルダ…*.CSV 複数
      ・
      ・
      ・

となっており、各*.CSVに対してColumns("B:B").NumberFormatLocal =""hh:mm"
としてやってみたが、01:33でなく1:33となっていしまい。途方に暮れております。
カンマ表記でなくを希望してます。


B列のユーザー定義のみです。

ちなみにつくったもの貼り付けます。
いじくりまわして、修正したもので ごちゃごちゃしてます。
ご了承ください。

よろしくお願いします。

Private FSO As Object

Sub try()

Application.ScreenUpdating = False

Set FSO = CreateObject("Scripting.FileSystemObject")

Call abc(FSO.GetFolder("D:\CSV"))

Application.ScreenUpdating = True

Set FSO = Nothing
End Sub

Private Sub abc(ByVal d As Object)
Dim d2 As Object

For Each d2 In d.SubFolders
Call abc(d2)
Next

Dim f As Object
Dim wb As Workbook
Dim ws As Worksheet

For Each f In d.Files
If f.Name <> ThisWorkbook.Name Then

Set wb = Workbooks.Open(f.Path)

For Each ws In wb.Worksheets

ws.Activate

Columns("B:B").NumberFormatLocal =""hh\:mm\ss"

Next


wb.Close True

End If
Next

Set d = Nothing
Set wb = Nothing
End Sub

【76871】Re:ユーザー書式設定 00:00表記にかん...
発言  β  - 15/3/29(日) 17:41 -

引用なし
パスワード
   ▼金魚 さん:

>Columns("B:B").NumberFormatLocal =""hh\:mm\ss"

これは、質問アップ時の転記のトラブルだとして。
あちらに、一応、レスをいれておきました。

【76873】Re:ユーザー書式設定 00:00表記にかん...
お礼  金魚  - 15/3/29(日) 17:55 -

引用なし
パスワード
   お返事別の場所に書いちゃった

ご指摘ありがとうございます。
当方は、いろいろな場にいろいろな方がいるので、あちらの場所にもご協力をお願いした次第です。エラーでもなく、いまだ ごちゃごちゃ動かして試しているから
転記が多少違ったりします。

骨組みだけ どんなことがしたいのか 伝えることが一番だと思いました。

どうぞ ご検討のほどよろしくお願いいたします。

1017 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free