FC2ブログ

箇条書きマクロ

2017–08–18 (Fri) 22:38
箇条書きマクロ 配列版です。
もっと早くなると思いますがとりあえずこの辺で……。

Public kensaku(14) As String
Sub Macro1()
If kensaku(0) = "" Then
kensaku(0) = "・"
kensaku(1) = "●"
kensaku(2) = "○"
kensaku(3) = "◆"
kensaku(4) = "◇"
kensaku(5) = "▼"
kensaku(6) = "▽"
kensaku(7) = "▲"
kensaku(8) = "△"
kensaku(9) = "□"
kensaku(10) = "■"
kensaku(11) = "※"
kensaku(12) = "◎"
kensaku(13) = "☆"
kensaku(14) = "★"
End If
End Sub

Sub 中点指定無し()
Call Macro1
Dim nai As Integer
Dim basyo As Variant
basyo = Selection
Dim RC As Long
RC = UBound(basyo)
Dim Cc As Long
Cc = UBound(basyo, 2)
For i = 1 To RC
For j = 1 To Cc
nai = 0
shiraberu = basyo(i, j)
For t = 0 To 14
If shiraberu = kensaku(t) Then
nai = 0
basyo(i, j) = Replace(basyo(i, j), shiraberu, "○")
Exit For
Else
nai = 1
End If
Next
If nai = 1 Then
basyo(i, j) = "○" & basyo(i, j)
End If
Next
Next
Selection = basyo
End Sub
スポンサーサイト



« 和暦曜日有り | HOME |  付箋マクロ »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク