FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/02«│ 2019/03| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/04
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2019/01/09
23:59:04
式の作成2を作りました。資格証入力です。
ただ使いにくいかな~と思ってもいます。

Dim buf
Dim buf2
Dim buf3
Sub 資格証Match作成()
On Error Resume Next
If buf = "" Then
Set buf = Application.InputBox("名前のセルを入力して下さい", Type:=8)
End If
ActiveCell.Value = "=match(" & buf.Address & "," & "indirect(" & """" & "資格証!" & """" & "&" & """" & "b:b" & """" & "),0)"
On Error GoTo 0
End Sub
Sub 資格証個数作成()
On Error Resume Next
If buf = "" Then
Set buf = Application.InputBox("名前のセルを入力して下さい", Type:=8)
End If
If buf2 = "" Then
Set buf2 = Application.InputBox("Matchのセルを入力して下さい", Type:=8)
End If
ActiveCell.Value = "=countif(" & "indirect(" & """" & "資格証!" & """" & "&" & """" & "b:b" & """" & ")," & buf2.Address & ")+" & buf2.Address & "-1"
On Error GoTo 0
End Sub

Sub 資格証範囲作成()
On Error Resume Next
Set buf2 = Application.InputBox("Matchのセルを入力して下さい", Type:=8)
Set buf3 = Application.InputBox("数のセルを入力して下さい", Type:=8)
ActiveCell.Value = "資格証!" & "C" & Range(buf2.Address) & ":" & "C" & Range(buf3.Address)
On Error GoTo 0
End Sub
Sub 免範囲作成()
On Error Resume Next
Set buf2 = Application.InputBox("範囲のセルを入力して下さい", Type:=8)
ActiveCell.Value = "=" & """" & "資格証!D" & """" & "&match(" & """" & "免" & """" & "," & "indirect(" & buf2.Address & "),0)&" & """" & ":D" & """" & "&countif(indirect(" & buf2.Address & ")" & "," & """" & "免" & """" & ")"
On Error GoTo 0
End Sub

リボンから入力出来るようになるともっと良いな~と思います。

コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/520-540379c7
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

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

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト