箇条書きマクロ

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
スポンサーサイト

コピー貼り付けマクロです

2017–08–11 (Fri) 17:23
コピー貼り付けマクロの新しい物です。
テキストファイルでマクロを作ってくれます。
コピー貼り付けマクロをアクティブブックに追加しました。

無題


HanaWBCopy_Rev1.xlsm

休憩。
蒼井翔太歌うまいなあ~~~めっちゃ好みb

単語登録マクロ_ATOK用

2017–08–11 (Fri) 16:53
単語登録マクロ_for ATOKです

無題

単語登録マクロ_ATOK用.xlsm

完成しました♪
完成した物はテキストファイルとなります★

無題

サンプルテキストです(´∀`*)

ツレの休みがないのが辛い……。
ますます妄想に拍車がかかるよ(/∀\*)

ワークブックコピー。

2017–08–10 (Thu) 22:13
ワークブックをコピーして貼り付けする。

無題

登録出来ます。そして貼り付け出来ます。

HanaWBCopy

ActivateNext ActivatePrevious

2017–08–09 (Wed) 22:50
Sub ActivateNext()
ActiveWindow.ActivateNext
End Sub

Sub ActivatePrevious()
ActiveWindow.ActivatePrevious
End Sub

アクティブブックを入れ替えます。

 | HOME |  次へ »

プロフィール

あゆみ

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

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク