日記 WeChatのアプリケーションの場所
コミュニケーションツールでいうと、日本では、LINEが普通だけど、中国となると、LINE自体が規制で使えず、WeChatというアプリがよく使われているとのこと。世界的に見ても、そうらしい。。。そうなの？で、仕事上どうしても、使わないといけな...
日記 
Excel VBA ブック内の全シートの項目名が同じか調べる
ブック内の全シートの項目名が同じか調べるSub 複数シートでの項目名確認()Dim i, shtDim ks(1000) As StringDim j'基準になる1シート名の項目名の数および、シートの項目をすべて配列に入れるSheets(1...
Excel VBA 途中に空白列があっても、最終列を選択する。取得する。
途中に空白列があっても、最終列を選択する。Dim maxcolumnWith ActiveSheet.UsedRangemaxcolumn = .Columns(.Columns.Count).SelectEnd With----- べんり...
Excel VBA ブック内のすべてのシートに対して、処理をする
ブック内のすべてのシートに対して、処理をするSub 複数シートでの項目名確認()Dim i, sht '全シートに対しての処理 For Each sht In Worksheets sht.Select '>>>>>>>>>>>>>>>>>...
Excel VBA 最初に設定したいコード
Application.DisplayAlerts = False 'アラートや警告を表示しないApplication.ScreenUpdating = False '画面を表示しないApplication.WindowState = xl...
Excel VBA デスクトップに名前を付けて保存する
デスクトップに名前を付けて保存するDim AAA As StringDim BBB As VariantSet BBB = CreateObject("WScript.Shell")----- べんりあつめ。-----AAA = BBB.S...
Excel VBA 途中に空白行があっても、最終行を選択する。取得する。最終行列の取得（入力値のみ、書式有り空白セル含まず）最終行列の取得（入力値有無関係なく、書式有り空白セル含む）
途中に空白行があっても、最終行を選択する。Dim maxrowWith ActiveSheet.UsedRange maxrow = .Rows(.Rows.Count).SelectEnd With----- べんりあつめ。-----途中...
Excel VBA A列の書式設定を変更する。
A列の書式設定を「整数の数値」にする。Range("A:A").NumberFormatLocal = "0"A列の書式設定を「標準」にする。Range("A:A").NumberFormatLocal = "標準"----- べんりあつめ...
Excel VBA vbaで関数を連続コピーする。vbaでオートフィル機能を使う方法。
A列に空白がない行が連続入力されていることが前提で、B列の2行目に関数を設定し、A列の最終行まで、連続コピーする。vbaでオートフィル機能を使う方法。Range("B2").Value = "= A2 & A2"----- べんりあつめ。-...
Excel VBA 処理前チェック（マクロを走らせていいかを確認する）
AU1のセルに何も入力されていなければ、マクロを進める。なにか入力されていれば中止する。If Range("AU1").Value = "" Then'ここにマクロを入れるか、end ifの後にマクロを書く。Else----- べんりあつめ...