『みさき式エクセルマクロ』　エクセルＶＢＡマクロ利用法

前ページ
次ページ

03Sep
- 581 式コピー・解説その２
  If ～ ElseIf ～ ElseIf ～ End If の場合分け、「If ～『ElseIf ～』 ElseIf ～ End If」の二重カッコ内の赤字の部分は以下の赤枠。「「Selection.Rows.Count * Selection.Columns.Count = 4 And _　Selection.Rows.Count = 2 And Selection.Columns.Count = 2」この部分で、選択範囲が二行二列であることを条件にしている。(行数　x　列数　が　4 　かつ　行数が　2 で、列数が　2 )前回でも条件の重複の状態になっていたが、ここでも『行数が　2 で、列数が　2』であれば、必然的に『行数　x　列数　が　4』になるので、『Selection.Rows.Count * Selection.Columns.Count = 4 And _』は省略可。実際のExcel のワークシート上での選択状態とアクティブセルの状態は下記の図2 ～図5 となる。図2　だと　syori_num% に1を代入。以下、図3　⇒　syori_num% は　2図4　⇒　syori_num% は　3図5　⇒　syori_num% は　4図6については、次回説明。©みさき式エクセルマクロ2022
01Sep
- 580 式コピー・解説その１
  式コピーの序盤のマクロ文を解説。If ～ ElseIf ～ ElseIf ～ End If の場合分けのところ。始めの条件は下記画像の赤枠部分。まず、ActiveCell.Address = Selection.Cells(1).Addressであること、すなわち、アクティブセルの番地と選択範囲の一番左で一番上のセル(これはCells(1)のこと)の番地が同じで、かつSelection.Rows.Count = 1 And Selection.Columns.Count = 1であること、すなわち選択範囲の行数が1　かつ、選択範囲の列数　が1であること、この場合は変数　syori_num% に0 を代入します。ちなみにSelection.Rows.Count = 1 And Selection.Columns.Count = 1であれば、必然的にActiveCell.Address = Selection.Cells(1).Addressとなるので、　ActiveCell.Address = Selection.Cells(1).Address　And 　は省略可となる。セルの選択状態、アクティブセルの状態を示した例は、下記の画像の図1となる。図2～図6 は、If ～ ElseIf ～ ElseIf ～ End If の場合分けの赤枠以降のところの具体的な選択範囲とアクティブセルの位置を示したものになるが説明の詳細は次回。©みさき式エクセルマクロ2022
28Aug
- 579 式コピー　(特殊コピー)
  前回、紹介の「汎用マクロ　ユーザフォーム」の実際の表示位置は上記の通り。(手動でポインターでユーザーフォームりタイトル部分をつかんで、位置を動かすこと可能)式コピーボタンは、オブジェクト名は自動で命名されるCommandButton1 で、以下のように「式コピー」マクロを設定する。式コピーマクロを取り急ぎ、下記。機能や使い方は次回以降に説明の予定だが、「式コピー」ではPulblic変数　P_Siki 　を利用している。Sub 式コピー()Dim rng As Range, cell As Range If ActiveCell.Address = Selection.Cells(1).Address And _ Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then syori_num% = 0 ElseIf Selection.Rows.Count * Selection.Columns.Count = 4 And _ Selection.Rows.Count = 2 And Selection.Columns.Count = 2 Then For i% = 1 To 4 If ActiveCell.Address = Selection.Cells(i%).Address Then syori_num% = i% Next ElseIf ActiveCell.Address = _ Selection.Cells(Selection.Rows.Count * Selection.Columns.Count).Address Then syori_num% = 5 End If Set rng = Selection Select Case syori_num% Case 0: P_Siki = ActiveCell.Formula Case 1: P_Siki = ActiveCell.Formula ActiveCell.ClearContents On Error GoTo end_line Selection.Offset(-1, 0).Select On Error GoTo 0 Case 2: If Len(ActiveSheet.Name) < 3 Then MsgBox ("シート名の長さが 3 未満のため、処理中止") Exit Sub End If If Right(ActiveSheet.Name, 3) = "(旧)" Then ActiveSheet.Name = Mid(ActiveSheet.Name, 1, Len(ActiveSheet.Name) - 3) Else ActiveSheet.Name = ActiveSheet.Name & "(旧)" End If Case 3: P_Siki = ActiveSheet.Name Selection.Cells(2).Activate Case 4: P_Siki = ActiveSheet.Tab.Color Case 5: P_Siki = "" For Each cell In rng If cell.Column = rng.Cells(rng.Columns.Count).Column Then P_Siki = P_Siki & cell & Chr(10) Else P_Siki = P_Siki & cell & " " End If Next P_Siki = Mid(P_Siki, 1, Len(P_Siki) - 1) Tmp_Siki$ = P_Siki 'P_Siki For i% = Len(Tmp_Siki$) To 1 Step -1 If Mid(Tmp_Siki$, i%, 1) = Chr(10) Then Tmp_Siki$ = Left(Tmp_Siki$, i% - 1) Else Exit For End If Next '改行文字(Chr(10))が連続する場合は改行文字を1文字に詰める処理 If Len(Tmp_Siki$) = 1 Then Exit Sub '非セルズ1アクティブのため '文字長は2以上になる筈だが '念のためのチェックEndトラップ Tmp_str$ = Left(Tmp_Siki$, 1) PrtLst_Ltr$ = Left(Tmp_Siki$, 1) For i% = 2 To Len(Tmp_Siki$) - 1 If PrtLst_Ltr$ = Chr(10) And Mid(Tmp_Siki$, i%, 1) = Chr(10) Then Else Tmp_str$ = Tmp_str$ & Mid(Tmp_Siki$, i%, 1) PrtLst_Ltr$ = Right(Tmp_str$, 1) End If Next If Not (Mid(Tmp_Siki$, Len(Tmp_Siki$), 1) = Chr(10) And _ Mid(Tmp_Siki$, Len(Tmp_str$), 1) = Chr(10)) Then Tmp_str$ = Tmp_str$ & Right(Tmp_Siki$, 1) End If P_Siki = Tmp_str$ End SelectGoTo stndrd_end_lineend_line: MsgBox ("シート名の重複等のエラー")stndrd_end_line:End Sub©みさき式エクセルマクロ2022
21Aug
- 578 汎用マクロ　ユーザフォーム（新）
  かなりの実戦経験を積んだ汎用マクロを改めて紹介していこう。過去の投稿でダブっている機能があるものの、コードは大分改善されている状態。まずは、頻繁に利用し活躍しているユーザーフォームの画像を公開。このユーザーフォームはリボンの「個別マクロ」タブの一番左のアイコン(下記の画像の赤枠)をクリックすると表示されるようにしてある。表示させるマクロは下記の通り。ユーザフォームはUserForm1 というオブジェクト名で下記のマクロを実行すると実際には、上記の位置よりかなり上の位置に表示される。上記の画像はマクロで表示させた後に、手動でユーザフォームをタイトルのところでつかんで、移動させたもの。Sub 汎用マクロ_ユーザフォーム()Dim act_bk_Nm As String Unload UserForm1 act_bk_Nm = ActiveWorkbook.Name UserForm1.StartUpPosition = 0 UserForm1.Top = 70 UserForm1.Left = 100 UserForm1.Show vbModeless End Sub今後、各ボタンの機能やコードを紹介していく予定。©みさき式エクセルマクロ2022
12Sep
- 投稿ラベル７～９月
  2019201920192018 201920192019201920192019202020192019201920192019201920192019201920202019201920182018 '17201820182018 201720182018201820182018 2017201820182017201820172018201720182018201720192019201720182019201820182018201820172018201820192018201820182018201820182018201720172017201720172019201820172018201920172019201820172017201620192018201920192018201920192017201720192017201920192017201920172017201920192017
- 577 在宅勤務（こんな体験をしたことありませんか?）
  Excelネタではないものの、投稿ご無沙汰、業務関係繋がり、セルネタということで、臆せずアップ。注) 画像は下記の文章と直接的には無関係。(解読等を試みても意味なし)こんな体験をしたことありませんか?（在宅勤務を体験されている方向け)設定したパスワードをたどると奇妙な連続文字099966886何か意味が有るわけないとは思いつつ、投稿ネタになるかと思い強引に当て字を考える。(ここで、大学の語呂合わせが条件反射している先輩を思い出す)銀河鉄道999トチローの母・・・(※のは6)フィニッシュが決まらず、投稿達成のためここで潜る、もとい、ググる。銀河鉄道999トチローの母プロメシュームの声ちょっと強引だが悪くなかろう。(少しぺコパ風)覚えても仕方なし、投稿するなら再度暗号表を表示させておかないと情報セキュリティの仕掛けをネタにした投稿を口火に情報漏洩！！　となったらシャレにならないといことで、掲載用画像のため再度、暗号をシャッフル。020245052出だしがオニオニで語呂合わせの神、降臨！鬼鬼良い子をこつんシンプルに纏まった。在宅勤務が長いと語呂合わせが流行る。今年のトレンドになったら、先輩の動向をチェックしよう。続く次回は、乱数を使った組み合わせマクロを投稿しようと思ったが果たして、投稿済かどうかチェックが必要な状態ゆえ、日が空く可能性大。©２０２０　みさき式エクセルマクロ
24May
- データ整理2
  前回はトップ１０のケースを紹介したが、もっと下の順位まで見たいというケースは、ユーザーフォーム上に用意したテキストボックスにマニュアル操作で、数値を入力することで対応出来る。単に下の順位を増やすだけでなく、書き出す始まりの順位も設定出来るので、例えば、トップ５からトップ１８を書き出すことも可能。赤枠の左側のテキストボックスに書き出す始まりの順位を入力（実際には順位ではなく、配列の番号を指定していることになることは認識していた方がBetter）。右側は終わりの順位を入力。「G版書出」ボタンを押すと、今回の例では既存のデータを上書きする形になる場面に書き出しを行うことになるため、このような場合は警告メッセージと「続行 or 中止」を選択出来る仕様にした。今回は「はい(Y)」ボタンを押して、処理を続行する。トップ１～１８のデータが書き出され、書き出し範囲の右上角セルの右横のセルが選択される。データ更新対象のセル範囲の右上角セルを選択。マクロを実行するための上述のとり規定された「行番地」のコメントが設定された列のデータ処理対象の行のセルをShiftキーを押しながら選択。下記のようにセル範囲選択される。上記の状態で「値更新」ボタンをクリックすると、「列：12」、「列：13」、「列：10」のデータが更新される。結果の画像は下記。ここでデータの出力対象を指定しているテキストボックスとその横のコマンドボタンの説明を少々。（下記の太赤枠線内に注目）コマンドボタンの下に「clear」との記載が？！。「clear」の文字通り、このコマンドボタンをクリックすると、テキストボックス内のデータはクリアされる。このコマンドボタンのアクション、すなわち、「イベントドブリン」に対しては、チェックボックスなどで機能を用意していない。ということは、「間違ってコマンドボタンを押してしまい消すつもりのない入力値が消えてしまった時」、あるいは、「一度消したけれどやはり元に戻したい時」のために「復活」することができる機能があるとかなり助かる。チェックボックスOn/Off方式なら設置場所も追加操作も増えるが、「復活」方式ならその様なこともなく、「一挙 more than 2 profits」、全訳すれば、「More than two profis one time」略して "MT2P1T"、あるいはMWTPot、通称、メガワットティーポット、日本語訳は高電圧急須。しかして実態は、仕様を図示すると下記のとおり。さらに、「G版読込」右横にチェックボックスの説明。下の「BoS」の意味は「Big or Small」の略。書き出しデータを大きい順のBig10か、小さい順のSmall10かを選ぶもの。チェック無しのデフォルトで大きい順となっており、小さい順とする場合はチェックを入れればよい。「終10」の記載の下のチャックボックスと二つのコマンドボタンの説明。チェックボックスにチェックが入っている時は、選択しているセルの数値が左のコマンドボックスをクリックすればカウントダウン。右の場合はカウントアップする。コメントの「列 : ??」の??部分に対象の列番地を入力させる数字になり、実際に処理コード上では列を指定する数値になるので、正の整数値である必要がある(0ではダメな)ので、カウントダウンは1までで打ち留め。最後にもうひとつチェックボックスの左のコメントボタン。こちらはコメントをコントロールするボタンで、チェックボックスにチェックが入っている時に機能が On となる。タイトルに記載すべきコメントをワンクリックで入力し、切り換えもできるようにしたもの。選択したセルのコメントを作成し、情報に配置させることができ、かつ、すでにコメントが作成済みの場合は、下図の順序でクリックの度に切り換わっていく。前回とマクロツールと合わせたこれらの機能があれば、かなりデータの分析作業は試行錯誤しながら行う場合でもかなりが楽になると思うが、実用面の効果と課題の有無は検証未実施。つづく©２０１９　みさき式エクセルマクロ
01May
- 576 データ整理
  予定を変更して、ヤンバルＧ以外のネタを閑話休題。エクセル内のデータベースを操作する方法を考えていたところ、グローバル変数配列を使ってトップ１０、ワースト１０を取り出すマクロツールを用意した。グラフ作成と作業の相性も良さそうなので、量率棒グラフ作成マクロファイルに装備する事に。ユーザーフォームを整理してボタンエリアの右下に配置。サンプル用のデータは下記を用意。国の重複は付番で対応しているヤッツケ感はご愛嬌。対象データ列のデータを選択し、CurrentRegion.Rows.Countを利用したマクロで対象データセル範囲を選択し、かつグローバル変数配列を初期化する。マクロは「Slt & Ini」ボタンに登録してあり、ボタンをクリック。下記のように、当該列のデータの固まりの先頭行から最終行までセル範囲選択される。グローバル変数配列に、選択セル範囲の各データとその行番地、列番地を格納するマクロを実行する。登録先は‘「G版読込」ボタン。データの書き出し先の位置を決めて、セルを選択し、「G版書出」ボタンのマクロを実行。選択していたセルを起点に下方向にトップ１０のデータが書き出され、右方向に対応するセル番地（行番地、列番地）が書き出される。コメントで「行番地」の列には「行番地」、「列番地」列も「列番地」の表示がタイトルを示すように、配置している。また、隣の列には参照元のデータ列の右側の列の列番地を先頭行に書き込むようにしており、このセルを選択させている。また、タイトル(擬)コメントには、まだ、作業作成途中であることをアピールする形で「列：？？」と表示。Shiftキーを押しながら、下記のようにコメントのタイトルがある列に対してセル選択する。ここで、選択する範囲を間違えると上手くマクロが動かない。（現在のコードの仕様では）左端のセル範囲は、必ず行番地の列にしなければならない。「値更新」のボタンに登録したマクロを実行すると身が端の選択していた上端のセルに入力されていた数字(値)の列に対応するデータが書き出される。また、コメントも「列：？？」から、「列：12」に書き換わる。参照元のデータの書き出しする列を簡単に追加出来るようにしてある。マニュアル操作で、「13」と「10」を下記の通り追記し、赤枠のチャックボックスにチェックを入れ、左側のちいさいコマンドボタンを押す。すると、「列：？？」のコメントが表示される。この処理は、一つのセル毎に行う仕様となっている。処理後の状態は以下の通り。先の例同様、セル範囲を選択。「値更新」ボタンを押す。データが更新されたところ。つづく©２０２０　みさき式エクセルマクロ
30Apr
- 575 ヤンバルG１０８５％刻み列幅調整 Step1
  5%刻み列幅調整の　Step 1 の工程を画像で説明。２行２列セル選択・右上角アクティブで、「前比帯g」ボタンをクリック。単一セル選択になり、「前比帯g」ボタンは色が赤に変わり「前比帯g」となります。単一セル選択で、「コメ化」ボタンの右横のチェックボックスにチェックを入れて「前比帯g」ボタンをクリック。帯グラフの作成途中。自動的に「前比帯g」ボタンの色が緑色に変わり、「前比帯g」ボタンの状態になっているところ。一旦、ヤンバルG(前回比較版明細付き量率グラフ) が列幅調整なしの状態で作成されたところ。ユーザーフォームが自動的にUnload　されて非表示となります。自動的に複数セル選択2行2列超で右下角セルアクティブになり、列幅調整が実行されたところです。ここで、各要素の列幅調整の回数がA列に書き込まれますが、調整0回となっているものがある場合は、再度、列幅調整を行って、調整が1回以上になるようにプログラムしてあります。今回の例では、実際に上から1つ目と3つ目が調整0回となっています。2回目のStep1 の列幅調整を行ったところ。列幅調整データの書き込みエリアの全貌次回は、現在作成中のStep2を掲載予定。つづく©２０２０　みさき式エクセルマクロ
26Apr
- 574 ヤンバルG１０７５％刻み列幅調整　プロローグ(前回からの続き)
  5%の各要素の計測用図形の大きさを確認すると20個の図形を左の上から下さらに、右側に移り上から下に帯グラフの左側からの要素を転記したものが下記。帯グラフの左側から5番目と6番目の大きさが他の1.38と比べて1.4 と1.44と調整が不十分な状態であることがわかります。列幅の書き出しエリアの状態をみると赤枠の部分になり、ここだけ左側が黄色セルになっています。これは、基準幅を超える前の要素幅より基準幅を超えた時の要素幅の方が基準幅との差が小さいことを示しています。右側の図形はStep 1 では全て基準幅を超えるところで列幅調整をやめた時の図形となっていますので、Step 1 以降の調整で改善が期待できます。但し、列幅調整のエクセルのデジタル誤差の影響か、あるいは、現在、改善中のプログラムのため、調整結果が、ファイルを改めて開いて実行したところ結果が一定していないので上記の結果は構想段階のサンプルとするにとどめる。次回からは、5%刻みのStep 1の調整についてヤンバルGの作成工程を掲載していきます。つづく©２０２０　みさき式エクセルマクロ
23Apr
- 573 ヤンバルG１０６５％刻み列幅調整　プロローグ
  前回(No.572) 、各10%の要素の列幅は起用したサンプルデータではほぼ2.33 で一つだけ2.34となり、均一になる調整ができました。そこで改めて、25%の4要素33.3%・・・・% の3要素50%の2要素　の列幅の基本評価要素を、従来の実装版と改善版最終2(改良)で比較してみました。50%の2要素　は　改善版最終2(改良)が優れていることはわかりますが25%の4要素33.3333・・% の3要素では僅かながら、従来の実装版の方が優では？！という状態です。そこで、エイプリルフール(No.566 ヤンバルG９９)で口走った「5%刻みにバージョンアップしてトライ！」に取り組むことにしました。まずは、10%刻みのStep 1のところまで踏襲&改善をすることができたので結果報告を下記します。要素の幅は工程を少しバージョンアップした関係で大きくなっています。実装版と5%刻み版第一ステップと比較すると50%の2要素は5%刻み版第一ステップ　優25%の4要素33.3%・・・・% の3要素では差はかなり詰まったが、公正な判定では従来の実装版の方がやや優。ここで、文字制限の警告がでてしまうため続きは次回つづく©２０２０　みさき式エクセルマクロ
21Apr
- 572 ヤンバルG１０５１０％刻み列幅調整：Step3_最新パターン
  三回目の列幅調整を「図」の上のチェックボックスにチェックをいれず一回目と二回目と同様のユーザーフォームの状態で、「新手順」ボタンを押します。三回目の調整で、F列の選択よりE列を選択する列幅調整、基準幅未満でE列に書き出される列幅調整値に要素の列幅を書き換えする必要がある場合は下記の画像の通りメッセージを表示し書き換えを行います。その場合は書き換えたE列のセルは黄色に着色されるため、E列とF列の両方が黄色に着色された状態になります。本来は、黄色のE列セルはI列のセルは同じ数値になるプログラム設計ですがデジタル誤差のため、そのようになっていないことがあります。しかし、上記の改良版により、調整の精度は増すことは下記の通り検証できている状態です。つづく©２０２０　みさき式エクセルマクロ
19Apr
- 571 ヤンバルG１０４１０％刻み列幅調整：Step3(グラフ削除＆再作成＆調整最終)
  第二回目の列幅調整の時と同様に「前比帯g」ボタンを「f」ボタンの右横のチェックボックスにチェック入れてクリックします。第二回目の列幅調整の時と同様にメッセージボックスが表示されます。第二回目の列幅調整の時と同様にパブリック変数の初期化、グラフの行と列の削除を行います。列幅調整のデータエリアは削除されずにデータは維持されます。第二回目の列幅調整の時と同様に複数セル選択で左上角セルをアクティブにして「新手順」ボタンを押して、列幅調整を行いますが、三回目では「図」の上のチェックボックスにチェックを入れます。第二回目の列幅調整と同様に複数セル選択で左上角セルをアクティブにして「新手順」ボタンを押して、列幅調整を行います。列幅調整データエリアの所定のデータの有無により今回は三回目の列幅調整を行います。三回目の列幅調整では、途中まで二回目の列幅調整と同様の処理を行います。まず、一回目の列幅調整で得た1%毎に要素内の全列の幅を大きくするところで、基準幅を超える手前の% で列幅調整を止め(ここまで二回目と同様)、ここから各幅毎(列単位)に列幅の大きいものから1%ずつの列幅増を行っていきますが列幅調整を1%ずつ幅を大きくしていきます。この際、二回目の行調整で、基準幅を超える直前と直後で基準幅が小さくなる回で当該列の列幅調整を終了します。この時の各要素の幅データをE列または、F列に記録します。また、最終的な列単位の調整回数をI列で、上記の要素の列幅の値の下に書き込みます。列幅調整データの書き込みエリア本来であれば、I列の列幅数値とE列またはF列の基準値との差が小さい方である黄色のセルの数値は同じになるプログラムの仕様だが、Excelのデジタル誤差の関係と思われるが実際に実行すると異なる数値となる場合があります。また、稀に基準値の差がE列の黄色セル値よりI列の値の方が基準値との差が大きくすることがあるため、改良を加えました。次回、三回目の列幅調整の改良版の手順を掲載します。つづく©２０２０　みさき式エクセルマクロ
16Apr
- 570 ヤンバルG１０３１０％刻み列幅調整：Step2(グラフ削除＆再作成＆調整２回目まで)
  「前比帯g」ボタンを「f」ボタンの右横のチェックボックスにチェック入れてクリックします。メッセージボックスが表示されます。メッセージボックスの画像を拡大。パブリック変数の初期化を行いますがこの際、グラフの行と列のみを削除し、列幅調整のデータエリアは削除されずにデータは維持されます。初期化された後にヤンバルGが再作成されます。このグラフは列幅調整がされていないものです。第一回目の列幅調整と同様に複数セル選択で左上角セルをアクティブにして「新手順」ボタンを押して、列幅調整を行います。列幅調整データエリアの所定のデータの有無により列幅調整の要件を変える仕様になっており、今回は二回目の列幅調整を行います。二回目の列幅調整では、一回目の列幅調整で得た1%毎に要素内の全列の幅を大きくして行ったときに、基準幅を超える手前の% で列幅調整を止め、ここから各幅毎(列単位)に列幅調整を1%ずつ幅を大きくしていき基準幅を超える直前列と直後の列での各要素の幅データをそれぞれE列とF列に記録します。列幅を大きくする列の順序は列幅の大きいものから1%ずつの列幅増を行っていきます。各要素の幅が、列単位での列幅増を始めてから、基準幅を超えるまでの列幅調整の回数をG列に書き込こまれ列幅計測図形がH列に表示されます。列幅調整データエリアの拡大画像つづく©２０２０　みさき式エクセルマクロ
11Apr
- 569 ヤンバルG１０２１０％刻み列幅調整：Step1(調整一回目まで)
  前回の続き、ヤンバルGと調整データの書き込みデータが削除されるなどして無い状態から「前比帯g」を押します。尚、入力表には、10%刻みのデータは用意されているものとします。調整前のヤンバルGが作成されます。複数セル選択をして、アクティブセルは左上角のセル以外にした状態で「新手順」ボタンを押します。何度か、Excelのアプリ(VBA)のバクで処理が中止され、警告メッセージが出ることがありますが、「デバッグ(D)」を押して再度マクロ再開の実行のアイコンを押してマクロを継続します。一回目の調整が実行されます。調整の基準幅は10%刻みの一番大きい要素の1.03倍の幅に設定する仕様になっています。各要素の幅が基準幅を超えるまで、各要素の全列をそれぞれ1%ずつ列幅を代入していく。(代入した結果は、デジタル誤差で必ずしも1%づつ大きくならない。)超えた時の累計% がA列に書き込まれますB列には各要素の列の数が書き込まれます。C列とD列は要素の列幅の計測値で、C列には基準幅を超える直前の値、D列には基準幅を超えた後の値を書き込みます。基準幅との差が小さいほうにセルが黄色に着色されます。つづく©２０２０　みさき式エクセルマクロ
07Apr
- 568 ヤンバルG１０１１０％刻み列幅調整：準備(グラフ・調整データ削除)　
  既にヤンバルＧが作成され「改善版最終」の列幅調整を行った状態から説明を開始します。再度、「改善版最終」の列幅調整のヤンバルＧを段階的に作成していきます。既存のヤンバルＧと列幅調整データエリアの列と行をそれぞれ削除します。既存のグラフ削除ボタンでは列幅調整データエリアは行削除の範囲に含まれていないので削除マクロを修正しグラフ削除ボタンの右にチェックボックスを配置してそのチェックボックスにチェックが入っている時は列幅調整データエリアの行が削除されるようにしました。ユーザーフォームの拡大画像です。グラフ削除ボタンを押すと「はい」「いいえ」の選択型のメッセージボックスが表示されます。メッセージボックスの拡大画像です。「はい」を選択します。入力表は残るようにしつつヤンバルＧと列幅調整データエリアの行と列を削除したところ。既に紹介した一気通貫でヤンバルＧ作成と列幅調整を行う場合はここで、複数セル選択の状態でアクティブセルは左上角以外のセルである状態にして「前比帯g」ボタンを押し「前比帯g」の文字色を赤にして「前比帯g」に変えます。選択セルは単一セル選択の状態に変わります。更に「f」ボタンの右横のチェックボックスにチェックを入れて「前比帯g」ボタンを押すと一気通貫でヤンバルＧ作成と列幅調整を自動的に完成させることが可能ですが処理を説明するために段階的に処理を行う方法でグラフ作成と列幅調整を進めていきます。そこでグラフ削除と列幅調整エリアの削除を終えた後、ユーザーフォームで「前比帯g」ボタンを押してヤンバルＧを作成します。つづく©２０２０　みさき式エクセルマクロ
04Apr
- 567 ヤンバルG１００１０％刻み列幅調整の改善版最終：「前比帯g」ボタン赤文字ほか
  前回のグラフ調整後の画像グラフの作成から調整の流れを紹介します。上記画像の赤枠のデータ書き出しエリアとさらにヤンバルGを削除できるように「グラフ削除」の機能を増強しました。ユーザーフォームの「グラフ削除」の右横にチェックボックスを設けて、チェックをいれて「グラフ削除」ボタンを押すと、グラフとデータ書き出しエリアが削除されます。メッセージボックスが表示されます。「はい」を選択します。グラフエリアの列と列幅調整のデータエリアの行が削除されました。2行x2列のセル選択&右上角アクティブの状態にします。ユーザーフォームを表示し「前比帯g」ボタンをクリックします。「前比帯g」ボタンの文字色が赤に変わり「前比帯g」になり、またセル選択は単一セル選択にかわります。「f」ボタンの右横のチェックボックスにチェックを入れて、単一セル選択の状態で「前比帯g」ボタンをクリックします。メッセージボックスが表示されます。ユーザーフォームが非表示となり再びメッセージボックスが表示されます。ヤンバルGが描画中であることが分かります。今回の実行例ではExcel のバグでマクロが停止することもなく、列幅調整後のヤンバルGが描画されました。また、左下のエリアには列幅調整のデータが書き出されています。「前比帯g」ボタンを「f」ボタン右横のチェックボックス・チェックありでクリックすると「改善版　最終」の列幅調整を実行したヤンバルGが一気に作成される仕様になっています。次回以降、列幅調整の工程を区切ってマクロ処理の様子を説明していきます。つづく©２０２０　みさき式エクセルマクロ
01Apr
- 566 ヤンバルG９９１０％刻み列幅調整の改善
  棒グラフの調整の手法を前回比較版明細付き帯グラフ(ヤンバルG)に応用することにしました。ヤンバルG応用版にするにあたりマクロのコードを更に改善することもできていますが、まずは結果を明示します。No. 532の「予告」で暫定の改善版を提示済ですが更に改善を進め、暫定の改善版は下記の画像では「改善試作版」。最終的な成果物は「改善版最終」となっています。25%、33.3%、50% の各要素の比較では右から二つ目の列、以前の「改善比較版」の方が差が少ない状態になっていますが10%の目盛りの大きさの均一性は「改善版最終」が優れていることが分かります。同じ10%の要素の目盛の大きさの範囲を下記します。調整なし　　　　：1.57～2.29実装版(従来版)　：2.22～2.29改善試作版　　：2.28～2.4改善版最終　　：2.32～2.34エイプリルフールに「改善版最終」の数値を背伸びして書いたものでなく実現値。大幅改善成る、といいたいところですが前述の25%、33.3%、50%の各要素の差の改善は頭打ちの感あって、限界を感じる結果ともいえます。「後は10%刻みを5%刻みに　バージョンアップしてトライ！」は今ところは、April Fool Joke の域を出ていません。さて、「改善版　最終」のヤンバルＧグラフ作成の話に戻ります。「改善版　最終」では下記画像の赤枠部分に10%の計測図形の大きさデータを書き出して調整作業を行っています。作成手順は次回。つづく　©２０２０　みさき式エクセルマクロ
31Mar
- 565 棒グラフ目盛行高調整最新版　まとめ
  最後に行高調整が行われる棒グラフ作成の流れの画像を掲載します。「棒グラフ」を押します。デバッグ表示の対応をします。棒グラフが作成されて目盛１回目の行高調整のデータ（数値と計測図形）が示された上棒グラフが作成されます。ユーザーフォームは下記画像の赤枠の部分のチェーンボックスのチェックと「f」ボタンは橙色に着色されて「f」となった状態で表示されます。「f」を押して行高調整を実行すると新しい計測図形が既存の計測図形の下に表示されます。何回か「f」ボタンを押して行高調整を繰り返します。下側の計測図形が各回の行高調整の結果を反映して変化していきます。行高調整が収束すると「収束メッセージ」が表示されます。「収束メッセージ」で「OK」ボタンを押すとユーザーフォームの下記赤枠内のチェックボックスのチェックが外れた状態になるます。行高調整が完了した棒グラフ行高調整数値、計測図形のズームアップ棒グラフのズームアップ以上で今回の棒グラフシリーズは完了です。つづく©２０２０　みさき式エクセルマクロ

前ページ
次ページ

581 式コピー・解説その２

580 式コピー・解説その１

579 式コピー (特殊コピー)

578 汎用マクロ ユーザフォーム（新）

Sumif増殖（同シート予告編）

投稿ラベル７～９月

577 在宅勤務（こんな体験をしたことありませんか?）

データ整理2

576 データ整理

575 ヤンバルG１０８ ５％刻み列幅調整 Step1

574 ヤンバルG１０７ ５％刻み列幅調整 プロローグ(前回からの続き)

573 ヤンバルG１０６ ５％刻み列幅調整 プロローグ

572 ヤンバルG１０５ １０％刻み列幅調整 ：Step3_最新パターン

571 ヤンバルG１０４ １０％刻み列幅調整 ：Step3(グラフ削除＆再作成＆調整最終)

570 ヤンバルG１０３ １０％刻み列幅調整 ：Step2(グラフ削除＆再作成＆調整２回目まで)

569 ヤンバルG１０２ １０％刻み列幅調整 ：Step1(調整一回目まで)

568 ヤンバルG１０１ １０％刻み列幅調整 ：準備(グラフ・調整データ削除)

567 ヤンバルG１００ １０％刻み列幅調整の改善版 最終 ：「前比帯g」ボタン赤文字ほか

566 ヤンバルG９９ １０％刻み列幅調整の改善

565 棒グラフ 目盛行高調整最新版 まとめ

579 式コピー　(特殊コピー)

578 汎用マクロ　ユーザフォーム（新）

575 ヤンバルG１０８５％刻み列幅調整 Step1

574 ヤンバルG１０７５％刻み列幅調整　プロローグ(前回からの続き)

573 ヤンバルG１０６５％刻み列幅調整　プロローグ

572 ヤンバルG１０５１０％刻み列幅調整：Step3_最新パターン

571 ヤンバルG１０４１０％刻み列幅調整：Step3(グラフ削除＆再作成＆調整最終)

570 ヤンバルG１０３１０％刻み列幅調整：Step2(グラフ削除＆再作成＆調整２回目まで)

569 ヤンバルG１０２１０％刻み列幅調整：Step1(調整一回目まで)

568 ヤンバルG１０１１０％刻み列幅調整：準備(グラフ・調整データ削除)　

567 ヤンバルG１００１０％刻み列幅調整の改善版最終：「前比帯g」ボタン赤文字ほか

566 ヤンバルG９９１０％刻み列幅調整の改善

565 棒グラフ目盛行高調整最新版　まとめ