書式覚えておいてマクロ

2017–06–12 (Mon) 12:38
1セルのみ覚えてくれます。
あんまり需要は無いと思いますが……。
現ワークブックと同じフォルダにあるブック・シートにしか使えません。
私は使いますね……最適化の前とかに使っています。

Sub 書式覚えといてマクロ()
Dim datFile As String
datFile = activeworkbook.Path & "\shosikioboete.txt"
Open datFile For Output As #1
Print #1, activecell.Font.Name
Print #1, activecell.Font.Size
Print #1, activecell.Interior.Color Mod 256
Print #1, Int(activecell.Interior.Color / 256) Mod 256
Print #1, Int(activecell.Interior.Color / 256 / 256)
Print #1, activecell.Font.Color
Close #1
End Sub
Sub 書式呼び出してマクロ()
Dim buf As String
Open activeworkbook.Path & "\shosikioboete.txt" For Input As #1
Dim x As Integer
x = 0
Do Until EOF(1)
Line Input #1, buf
x = x + 1
If x = 1 Then
selection.Font.Name = buf
End If
If x = 2 Then
selection.Font.Size = buf
End If
If x = 3 Then
myR = buf
End If
If x = 4 Then
myG = buf
End If
If x = 5 Then
myB = buf
selection.Interior.Color = RGB(myR, myG, myB)
End If
If x = 6 Then
selection.Font.Color = buf
End If
Loop
Close #1
End Sub
スポンサーサイト

« 三角や丸を選択したセルに入力する | HOME |  どんな住所でも綺麗に抜き出すエクセル »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク