FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2018/09«│ 2018/10| 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 »2018/11
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
23:45:42
無題

分かりにくいだろうとのことで、建設業データベースに追加するよう言われた式の説明です。
文字列合体の簡単マクロも作成するように言われてそれも作成。

Sub 文字列合体()
On Error Resume Next
Set buf = Application.InputBox("合体する文字列を設定して下さい(一行・一列のみ)", Type:=8)
Set buf2 = Application.InputBox("入力するセルを選択してください", Type:=8)
Application.ScreenUpdating = False
Dim sh As Variant
sh = buf
Dim i As Integer
Dim kei As String
If UBound(sh) <> 1 Then
For i = 1 To UBound(sh)
If sh(i, 1) = "" Then
Else
If kei = "" Then
kei = sh(i, 1)
Else
kei = kei & "・" & sh(i, 1)
End If
End If
Next
Else
For i = 1 To UBound(sh, 2)
If sh(1, i) = "" Then
Else
If kei = "" Then
kei = sh(1, i)
Else
kei = kei & "・" & sh(1, i)
End If
End If
Next
End If
Application.ScreenUpdating = True
buf2.Value = kei
On Error GoTo 0

End Sub

今まではユーザー定義関数だったので、なかなか使いにくかったのですが、今回からはボタン一つで出来るので簡単になりました。

*その他繁忙期作業*
・時間計算表作成
・金銭計算表(出金)作成
・建設業データベース 完全マニュアル
・単純マクロ

その他にもいくつか作業が来ています。後はタスク作業がそれ以外に入ってます;;; うんざり;;;

コメント
コメントの投稿










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

はなかな

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

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

この人とブロともになる

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