FC2ブログ

とあるパパの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
31
10


スポンサーサイト

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

【リアル】デートいってきた!

先日、嫁様と久しぶりのデートにいってきた♪

映画を見ようと思い、数日前にネットで映画の情報を見ていたら
ジャッキーチェンとウィルスミスの息子君が主演のリメイク版
ベストキッドがやっていた!

踊る大走査線と迷ったんだけど、せっかく見るなら洋画という事で
いざ、見に行きました!

結構面白かった、カンフー習おうかなとか思った!
息子君がウィルスミスそっくりだった!

まぁなにが言いたいかというと、、

映画といったらコレでしょ!?










































Lサイズ


でかいwwwww


だれかのお尻が写ってるけど(・ε・)キニシナイ!!


この後、このポップコーン君はいったいどうなるのか!?

乞うご期待。

スポンサーサイト

テーマ : おでかけ    ジャンル : 結婚・家庭生活

【りある】デートいってきた!2

またまた嫁様とデートにいってきた♪

今度は踊る大走査線3を見に行ってきた。
俺的にはシリーズの中で一番眠くなtt

そして!

映画といったら!!

恒例の!!!










































ポップS


ちっちゃくなっちゃった(゚∀゚)

いや、前回食べきったわけじゃないけど ね、、 飽きちゃうしね



あ、そうそう
いざシアターに入ってみたらごらんの有様だった。

貸切!?


ヽ(´ー`)ノ

テーマ : おでかけ    ジャンル : 結婚・家庭生活

マイホームが!

ほすぃ!☆彡

仕事用

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.[マクロ]を表示して、【営業日フォルダ作成】を実行する。


カウンター
プロフィール

きる

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ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。