とあるパパのRO

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
06


スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

仕事用

1.EXCELを新規に開いて、[ALT]キーを押しながら[F11]キーを押す。VBA
(こんな画面が表示される)


2.画面の左上に表示された、「ThisWorkbook」をダブルクリックする。
VBA2.jpg
(右のグレー部分にウィンドウが表示される)

3.表示されたウィンドウに下の全部をコピペする。

Sub 営業日フォルダ作成()
Dim iEigyoCnt As Integer
Dim iDayCnt As Integer
Dim objFileSys As Object
Dim strYMPath As String
Dim strEigyoPath As String
Dim strDayPath As String
Dim strAry As Variant
Dim strYear As Integer
Dim strMonth As Integer

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strYear = Range("A1").Value
strMonth = Range("B1").Value

'月フォルダの有無チェック
strYMPath = Range("C1").Value & "\" & strYear & "年" & strMonth & "月"
If objFileSys.FolderExists(strYMPath) = False Then
'なければ作る
objFileSys.createfolder strYMPath
End If

'営業所フォルダの有無チェック and 日付フォルダの有無チェック
'営業所の配列
strAry = Array("仙台", "太田", "東京", "名古屋", "大阪", "九州", "OEM")
For iEigyoCnt = 0 To UBound(strAry)

strEigyoPath = strYMPath & "\" & Choose(1, strAry)(iEigyoCnt)
If objFileSys.FolderExists(strEigyoPath) = False Then
'なければ作る
objFileSys.createfolder strEigyoPath
End If

For iDayCnt = 3 To 100
If Range("A" & iDayCnt).Value = "" Then Exit For
strDayPath = strEigyoPath & "\" & strMonth & "月" & Format(Range("A" & iDayCnt).Value, "00") & "日"
If objFileSys.FolderExists(strDayPath) = False Then
'なければ作る
objFileSys.createfolder strDayPath
End If

Next iDayCnt

Next iEigyoCnt

Set objFileSys = Nothing

End Sub


4.普通のEXCEL表示に戻って、フォルダ作成の条件を入力する。
SET.jpg
・A1セルは「年」
・B1セルは「月」
・C1セルは年月フォルダを作成したいパス
・A3セルから下に営業日

5.[マクロ]を表示して、【営業日フォルダ作成】を実行する。

スポンサーサイト

パパネタです

88.jpg

テーマ : ラグナロクオンライン    ジャンル : オンラインゲーム

また

デレタ━━゚.+:。ヽU゚Д゚Uノ゚.+:。━━!!

メデュ子2

ので、
1枚目は自分用に使ってしまった

テーマ : ラグナロクオンライン    ジャンル : オンラインゲーム

今日は

メデューサがデレた( ^ω^)


メデュ子

テーマ : ラグナロクオンライン    ジャンル : オンラインゲーム

デレた

水属性コンバーターを作成するべく
カタシムリの皮を集めていたら
カタツムリがデレてしまった。

カタシムリ

テーマ : ラグナロクオンライン    ジャンル : オンラインゲーム


カウンター
プロフィール

きる

Author:きる
夫婦でBIJOU鯖にてRO活動中。

 
ブロとも一覧
 
 
 
 
ブロとも申請フォーム
 
 
検索フォーム
 
 
QRコード
QRコード
 
 
著作権
このページ内における「ラグナロクオンライン」から転載された全てのコンテンツの著作権につきましては、運営元であるガンホー・オンライン・エンターテイメント株式会社と開発元である株式会社グラヴィティ並びに原作者であるリー・ミョンジン氏に帰属します。 (C)2004 Gravity Corp. & Lee Myoungjin (studio DTDS),All Rights Reserved. (C)2004 GungHo Online Entertainment, Inc. All Rights Reserved. なお、当ページに掲載しているコンテンツの再利用(再転載・配布など)は、禁止しています
 

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。