クリップボード作成

2017–07–21 (Fri) 23:59
選択範囲を登録出来るクリップボードです。
無題

文字列を登録出来るクリップボードです。
無題

重宝してます><
これもアドインに追加します。
(こうしてアドインの公開が遅くなって行くのです)




これは印刷設定マクロです。
こちらは標準モジュールに貼り付ければ使えます。

Sub 縦1枚に印刷設定プレビュー()
On Error Resume Next
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintPreview
On Error GoTo 0
End Sub

Sub 横1枚に印刷設定プレビュー()
On Error Resume Next
ActiveSheet.PageSetup.Orientation = xlLandscape
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintPreview
On Error GoTo 0
End Sub

スポンサーサイト

アドインたくさん作ってしまいました

2017–07–20 (Thu) 23:13
作りすぎた~~~。

無題

図形内の文字を検索するマクロ。
これ凄く欲しかったんです。。。
本当に……;
置換も付けてもう少し使いやすしようと思います。
無題

ここに置換を入れるぞbbb

無題

無題

「A1を選択して終了」これはよう使います。
凄くいいマクロですよ。


休憩…。


「うたの☆プリンスさまっ♪Amazing Aria & Sweet Serenade LOVE」凄く楽しみ!!!
実はRepeat放置してるんだけど、それのプレイヤー名が
ツレの苗字+自分の本名(したの名前)になってます(笑)
ツレ、愛してます

可愛い

2017–07–19 (Wed) 22:33
可愛いです

無題

付箋紙作りすぎちゃった(汗

愛用中のワークシートマクロです。
Sub PrintArea_selection()
On Error Resume Next
Set buf = Application.InputBox("印刷範囲を設定して下さい", Type:=8)
Dim sh As Object
For Each sh In ActiveWindow.SelectedSheets
sh.PageSetup.PrintArea = buf.Address
Next sh
On Error GoTo 0
End Sub
選択したシートの印刷範囲をまとめて変更してくれます。
印刷範囲がおかしくなってしまうシート、何故か有るんですよね……。
後、欄外のメモが印刷されてしまったりとか;;;


休憩。。。

Worksheet マクロ

2017–07–18 (Tue) 23:59
無題

アドインにWorksheetマクロを追加しました。

Excel 2003 カラーパレット

2017–07–13 (Thu) 22:40
Excel 2003 のカラーパレットを作りました。

無題

難しいですね~~~……。
作るの大変でした(笑)
画像も作りましたよ。

お気に入りアドインが出来ました。

2017–07–13 (Thu) 18:58
まだ公開は出来ないのですが、「お気に入り」アドインが出来ました。

無題

無題

ワークブックや、フォルダ、PDFなどを保存することが出来ます。
これにさらに、PDFの印刷などを追加しようかと考えています。

付箋紙(名前の定義の中身を入力)とか出来ないかなあ……。
無理なら簡単に名前の定義に飛んでいくような、、、。
もう一つ同じブックを開いて、そこに出すとか。
同じファイル開く方法有ったはずだなあ……。

まだまだ作りたいマクロが一杯あります(笑)

アドイン(作成予定含む)

2017–07–13 (Thu) 00:26
アドイン(作成予定含む)を貼っていきます。
出来たら今週中に作りたいところですが、無理なら来週までにアップロードしようと考えています。
アドインは凄い人がいるのですが、、、私もして見たい!と思う一心で作ってみました。

1.○を付すオートシェイプ
  塗りつぶし無しのオートシェイプを名前付きで作成。
2.選択したシェイプを違うシートの同じ位置に貼り付ける(複数可能に)
3.名前の定義を検索する
4.期間計算
5.全てA4一枚で印刷する
6.選択したシートに同じ印刷範囲を適用する
7.付箋紙を作成する
8.背景色と同じ色で文字列が入っていないか調べる
9.箇条書き(1.……、a.……の作成)
10.作業中のワークブックのアドレスを取得し、クリップボードへ入れる
11.検索したセルに色を付ける
12.カレンダーを作成する
13.検索に入れる
14.税抜き金額・税込み金額を出す
15.干支を自動で計算する
16.登録した会社名を自動で入力する
17.ワークシート名を指定して印刷する
18.ワークシート名を指定してタブの色を変更する
19.自動目次作成
20.指定ブックの中身を検索
21.セル内の改行を削除する
22.セル内の空白を中点に変更する
23.シートの並び替えと削除・複製
24.印刷範囲を細かく設定し、分けて印刷する

まだまだありますがこの辺で。

箇条書きマクロ・変更可能

2017–07–12 (Wed) 19:12
箇条書きマクロ・変更可能です。
(エクセルで確認したのち修正します)

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 中点指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"・")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "・" & Target.value
End if
Next
End sub

Sub 黒丸指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"●")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "●" & Target.value
End if
Next
End sub

Sub 白丸指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"○")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "○" & Target.value
End if
Next
End sub


Sub 白ひし形指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"◇")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "◇" & Target.value
End if
Next
End sub


Sub 黒ひし形指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"◆")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "◆" & Target.value
End if
Next
End sub

Sub 白三角指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"△")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "△" & Target.value
End if
Next
End sub


Sub 黒三角指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"▲")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "▲" & Target.value
End if
Next
End sub

Sub 逆白三角指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"▽")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "▽" & Target.value
End if
Next
End sub


Sub 逆黒三角指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"▼")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "▼" & Target.value
End if
Next
End sub


Sub 白四角指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"□")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "□" & Target.value
End if
Next
End sub

Sub 黒四角指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"■")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "■" & Target.value
End if
Next
End sub

Sub コメ印指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"※")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "※" & Target.value
End if
Next
End sub

Sub 二重丸指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"◎")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "◎" & Target.value
End if
Next
End sub

Sub 白星指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"☆")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "☆" & Target.value
End if
Next
End sub


Sub 黒星指定無し()
dim nai as integer
For each Target in selection
nai = 0
shiraberu = Left(target,1)
For i = 0 to 14
If shiraberu = kensaku(i) then
Target.value = Replace(Target.value,shiraberu,"★")
else
nai = 1
End if
next
If nai = 1 then
Target.value = "★" & Target.value
End if
Next
End sub

箇条書きマクロ(段落指定なし)

2017–07–11 (Tue) 22:47
箇条書きマクロ(段落指定無し)を紹介します。

Sub 中点指定無し
selection.value = "・"&selection.value
End sub

Sub 黒丸指定無し
selection.value = "●"&selection.value
End sub

Sub 白丸指定無し
selection.value = "○"&selection.value
End sub

Sub 白ひし形指定無し
selection.value = "◇"&selection.value
End sub

Sub 黒ひし形指定無し
selection.value = "◆"&selection.value
End sub

Sub 白三角指定無し
selection.value = "△"&selection.value
End sub

Sub 黒三角指定無し
selection.value = "▲"&selection.value
End sub

Sub 逆白三角指定無し
selection.value = "▽"&selection.value
End sub

Sub 逆黒三角指定無し
selection.value = "▼"&selection.value
End sub

Sub 白四角指定無し
selection.value = "□"&selection.value
End sub

Sub 黒四角指定無し
selection.value = "■"&selection.value
End sub

Sub コメ印指定無し
selection.value = "※"&selection.value
End sub

Sub 二重丸指定無し
selection.value = "◎"&selection.value
End sub

Sub 白星指定無し
selection.value = "☆"&selection.value
End sub

Sub 黒星指定無し
selection.value = "★"&selection.value
End sub

段落指定無しのため、選択したセル全ての行頭にそのマークが付きます。
凄く簡単で使いやすいです!!!

日付を分割する式

2017–07–11 (Tue) 22:21
「日付を分割する式」です。
凄く簡単に作ることができます。
少し変更するだけで、誰でも簡単に使用することができます。

無題

=LEFT(B4,FIND("~",B4,1)-1)

=MID(B4,FIND("~",B4,1)+1,100)

 | HOME |  次へ »

プロフィール

あゆみ

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

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク