strFile を”コピー”と頭に付けて、

（たとえば、Book.xls を　コピーBook.xlsにして

デスクトップに保存したいのですが、

どうしたら良いのか、苦しんでいます。

saveas プロパティを使うのでしょうか。

ちゃんと動きました。

Sub 曜日()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = Format(Cells(i, 1), "aaa")
Select Case Cells(i, 2).Value
Case Is = "火", "木", "土"
Cells(i, 3) = "●"
Case Is = "月", "水", "金"
Cells(i, 3) = "×"
Case Else
Cells(i, 3) = "休"
Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 3
Range(Cells(i, 1), Cells(i, 3)).Font.ColorIndex = 1
End Select
Next i
End Sub

Weekday関数というのが何か知らないので、またお勉強します。

自分のためにも、一生懸命コメントしてくださる方、たまたまこのブログにヒットした方・・・

誰にとってもメリットないからです。

簡単なスケジュールですが、こんなデータがあったとします。

A列

3/1　　　

3/2　　

3/3　　　

3/4　　　

これを下記のようにしたいと思います。

A列 B列　　　C列

3/1　　　木　　　　●

3/2　　　金　　　　○

3/3　　　土　　　　●

3/4　　　日　　　　休

For i = 2 to 4

cells(i,2)=format(cells(i,1))

Format(cells(i,1),"aaa")= "木" then "●"

イメージとしては、こんな感じだとおもいます。

明日、書いてみます。

Sub 地区リスト（）

Dim tikuId as long

For tikuId = 0 to fraTiku.controls.count - 1

If fraTiku.Controls(tikuId).Value = True Then

tikuName = fraTiku.Controls(tikuId).Caption

Exit For

Next

私はまだ自分仕様のフォームを作ったりするレベルには至っていませんが、

以前、講習会で教えてもらったサンプルです。

フォームとイベントの概念が分かっていないと難しいですが、

要は、fraTiku　というオブジェクトの中の

（オブジェクトでいいのかなあ？）IDを選び出して

ループを抜けるということです。

今、自分で書いてみて、なるほどと思いました。

（元データ）

C列

目黒区下目黒1丁目

渋谷区渋谷3丁目

品川区品川1丁目

上記のようなデータがC列に２１０個あって、下記のように１丁目とか数字の部分で分けたいという処理についてです。

（結果データ）

G列　　　　　　　　　　　　H列　

目黒区下目黒　　　　　1丁目

渋谷区渋谷　　　　　　1丁目

品川区品川　　　　　　1丁目

Sub 丁目で分ける（）

Dim s As String
Dim c As Long
Dim ik As Long

For ik = 1 To 210
s = Range("C" & ik).Value
For c = 1 To Len(s)
If isnumeric(Mid(s, c, 1)) Then
Debug.Print c & "文字目でした"
Exit For
End If
Next
Range("G" & ik).Value = Left(s, c - 1)
Range("H" & ik).Value = Mid(s, c)
Next

End Sub

つまり数字（この場合だったら、変数のc）を見つけてしまえば、あとは不要です。

このExit For のネタ少し引っ張ります。

あまりにも書いてなさ過ぎて、自分のアメブロIDとパスワードを忘れてしまいました。(＞_＜)

再発行ができたので、再度、気持ちを入れ替えてやってみます。

自分を追い込むのがこんなに大変だとは思いませんでした。

私が今までセミナーに行って、一通りはVBAをかじりました。

非常に分からなかったことの一つにExit For があります。

Sub sampleExitFor()

Dim i as Integer

For i = 1 to 22

if cells(i,9).value = 1 then

Msgbox"１位は"&cells(i,2).value

exit for

endif

next

End Sub

ブログの関係上、インデント出来ませんが

やっていることは簡単です。

でもこの例文を見て、どう応用するのでしょうか？

だって、単にI列を並べ替えたら済むだけでしょう？

こういうものをどう使えるのかが分かってきて初めて、スキルアップしたという実感が沸くと思うのですが

使える段階にまでならずに、苦しむとVBAがだんだん、退屈なものになってくる気がします。

Dir の使い方は、

１）カッコ内にフォルダーを指定して呼ぶ

２）戻り値が空っぽならば、ループを脱出

３）処理

４）カッコ内で空を呼び２へループ

Sub 一覧書き出し()
Dim i As Long
Dim fname As Variant, strDir As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
strDir = .SelectedItems(1)
End With

fname = Dir(strDir & "\")
i = 1
Do While fname <> ""
Cells(i, 1) = fname
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=strDir & "\" & fname, _
TextToDisplay:=Cells(i, 1).Value

fname = Dir()
i = i + 1
Loop
End Sub

今度は実務に直結したことをやってみたいと思います。

ようやく今日誕生日を記念して、やり始めます。

指定したフォルダの中の一覧表を書き出して、ハイパーリンクを

つなげるようにします。

まずハイパーリンクのマクロ記録です。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2012/1/21 ユーザー名 :
'

'
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Documents and Settings\Owner\デスクトップ\gamen\MENU000.txt", TextToDisplay:= _
"MENU000.txt"

End Sub

次回は、これを使ってDir関数を使ってLoopを使ってハイパーリンクを作成するようにやってみます。