要望ボックス

日付の入力だけで、ガントチャートに自動で塗りつぶししたいです。
また、土日は塗りつぶしなしにするにはどうしたらよいでしょうか？

【回答】

日付の入力で自動で塗りつぶしする方法は以下の動画が参考になります。
進捗管理表を作成
→こちらの動画の場合、年月を指定するだけで、ガントチャートのカレンダーも切り替えられるようになっています。

土日を塗りつぶししない方法は大きく分けて２つあります。

[１つ目]
土日のセルに関しては条件付き書式（塗りつぶし条件）を設定しないという方法です。
こちらの方法の場合、カレンダーの切り替えができなくなります。
→曜日の位置が変わってしまうため

[２つ目]
条件付き書式（塗りつぶし条件）に、曜日判定を追加するという方法です。

こちらでは２つ目の方法について詳しく解説します。

まず、「 進捗管理表を作成 」にて解説していた条件付き書式の設定が以下になります。

条件を確認すると、「セルの値が１の時」、「セルの値が２の時」、…といった条件が指定されています。
この条件に。土日以外という条件を加える必要があります。
複数のAnd条件、尚且つ、別のセルの値（曜日のセル）を確認する場合は、「セルの値」ではなく、数式を使用して設定する必要があります。

条件は選択開始のセルを基準に相対参照で考える必要があるので、以下のような式になります。

=AND(K5=1,K$3<>”土”,K$3<>”日”)

※Ｋ５を基準に考えたときに、Ｋ５が１であり、かつ、Ｋ３が土日ではないとなります。この「３」に関しては、Ｋ６の場合でも、３行目を見る必要があるため、「＄」で絶対参照にしています。
実際に編集すると以下のようになります。

この内容を以下のように１～３の３つの条件に設定します。

このようにして更新することで、土日に関しては塗りつぶしをしないようにできます。

VBAからのみ入力を許可する方法はありますか？

【回答】

シートの保護に関しては、次のVBAを実行すると自動で保護されるので手順を飛ばしても問題ございません。
保護の際にパスワードを設定した場合は、そのパスワードを覚えておく必要があります。

ここまでで、シートの設定は完了です。
後は、対象のコードの先頭に次のコードを追記するだけで完了です。

「Worksheets(“Sheet1″).Protect Password:=”test”, UserInterfaceOnly:=True」

※こちらの設定は、”Sheet1″に対してシートの保護（パスワード：test）をしています。
　保護をする際に、「 UserInterfaceOnly:=True 」を追記するだけで、VBAのみシートの操作が可能になります。
パスワードを設定する必要がない場合は、「 Password:=”test”, 」を省略できます。

特定の色を数えるユーザー定義関数について、色を変えたタイミングで反映させる方法はありますか？
（参考：https://www.youtube.com/watch?v=kVaO0IGirGE ）

【回答】

色を変更する際に、他のセルからコピペするなどの場合は自動更新されますが、色を変更するだけでは自動更新されないです。
関数が更新されるタイミングは、引数に対して変更があった場合になります。
ただ、色を変更するだけでは、引数が変更されたとはならないみたいです。

上記の内容を踏まえて思いつく対策を2つ挙げますと以下になります。
※他にもいろいろあると思います。

①余分な書式もコピーされてしまいますが、色付けを書式のコピーなどにより行う

②リアルタイムの更新ではありませんが、変更後に別のセルを選択したと同時に更新する

「②」の場合は、対象のシートモジュール、もしくはブックモジュールにて特定のイベントプロシージャに以下の内容を記述する必要があります。

Application.CalculateFull
※「Application.Calculate」では計算されません。

「②」について、特定のシートのみに自動更新を適応する場合は、シートモジュールの「SelectionChange」を用います。
こちらは特定のシートに対し、セルの選択が変更されたタイミングで実行されるイベントプロシージャになります。

上記の画像のように選択して、下記の内容「Application.CalculateFull」を追記します。

これだけで完了です。
「Application.CalculateFull」ではなく「Application.Calculate」の場合、色変更では反応してくれないです。
なので、「Application.CalculateFull」にして、すべてに対して更新をするようにしています。

次にブック全体に自動更新を適応する場合は、ブックモジュールの「SheetSelectionChange」を用います。
こちらはシートモジュールで説明した内容と同じで、セルの選択が変更されたタイミングで実行されるイベントプロシージャになります。
違いは、すべてのシートの適応される点です。

上記の画像のように選択して、下記の内容「Application.CalculateFull」を追記します。

これだけで完了です。

指定した列の中に空白がある場合、
その行を自動で削除したいのですが、
VBAでどのように実現しますか？

【回答】

削除する方法はいろいろありますが、その中の1つを紹介します。

・「条件を選択してジャンプ」の機能を活用する

「ホーム」内にある「検索と選択」→「条件を選択してジャンプ」を使うと空白セルをまとめて選択することができます。
使い方のイメージは次の画像です。

上記の参考ファイルはこちら▼

他の方法として対象範囲を上からループさせ空白なら削除するというように実現することもできますが、行を削除した場合は繰り返している数がずれるので、少し複雑になります。

また、今回紹介した方法は完全に削除しています。
削除ではなく、非表示にしたいという場合は、以下の内容が参考になるかと思います。

＞＞空白行を自動でグループ化

表から
「複数条件を満たしたデータの数」を
数えたいのですが、どの関数を使えばよいのでしょうか？

【回答】

COUNTIFS関数で実現できます。

使い方は、以下になります。

=COUNTIFS(範囲①,条件①,範囲②,条件②,…)
※すべての範囲は同じ行数、列数を指定する必要があります

使用例は以下のようになります。

条件に使える演算子は以下のものがあります。

・「 = 」等しい
・「<>」等しくない
・「 > 」より大きい
・「 < 」より小さい
・「>=」以上
・「<=」以下

他にもワイルドカードというものがあります。

・「*」：0文字以上の任意の文字列
・「?」：1文字以上の任意の文字列

例えば、先ほどの表の中から名前が「name1」の数を数える場合、

=COUNTIF(B3:B13,”=name1″)　または、=COUNTIF(B3:B13,”name1″)
→「1」

になります。
ここで「name1」を含む数としたい場合、

=COUNTIF(B3:B13,”*name1*”)
→「3」

になります。
※今回の場合は、「*name1*」が「name1*」でも同じ結果になります。

ちなみに、次の場合はどうなるでしょうか？

=COUNTIF(B3:B13,”name1?”)

こちらでは「name1」の後に「?」を入れています。
「?」という文字は1文字以上の任意の文字列になります。
よって答えは「name10」と「name11」の「2」になります。

演算子に関しては、「演算子+比較値」で表現できます。

・10より大きい場合は、「>10」
・2022/1/1以降の場合は「>=2022/1/1」

といった感じです。

CSV読込について、YouTubeやネットで調べたもので試したのですが、
（参考：https://www.youtube.com/watch?v=xHmiB_XnIyM ）
1行で出力されてしまいます。
なぜでしょうか？

【回答】

この原因は「改行コード」にあります。
全ての文字には文字コードと呼ばれるコードが割り当てられています。
「改行」も、「改行」という文字になります。

ややこしいことに、この「改行」には複数のものが存在します。
それは「CR、LF、CR+LF」です。
一般的に、Windowsでは「CR+LF」、MacOSでは「CR」、UNIXでは「LF」が使われています。

参考動画のプログラム内の「Line Input」では、「LF」コードのみで改行されたデータを1行ずつ読み取ることができません。
そのため、1行で取得されてしまいます。

改修方法としたら、1行で取得された内容をSplitで「LF」コードで分割して実行すると良いです。

商品名に連動して金額入力できますか？

【回答】

VLOOKUPやXLOOKUPのような参照式を活用することで解決するかと思います。
商品マスタを作成し、入力された商品名を元に金額を抽出するというイメージです。

注意点としましては、商品名が正しく入力されない場合は、抽出されないことです。
ドロップダウンリストなどで対応すると良いかと思います。

※商品の数が可変の場合は、テーブル化がオススメです。
ドロップダウンリストの参照式は「=INDIRECT(“テーブル名[項目名]”)」で対応できます。

以下のようなイメージになります。

顧客管理システムなどで、
（参考：https://www.youtube.com/watch?v=Pq2PbGDy2iM ）
更新した日時を自動で入力する項目を追加することはできますか？

【回答】

上記の動画の場合、
「Worksheets(“従業員一覧”).Cells(no,”B”).Value = .Range(“D5”).Value」
など、管理シートに反映させるコードがあります。
ここで、同時に日時も反映させれば解決するかと思います。

例えば、「従業員一覧」シートのG列に更新日という項目を用意する場合は、下記のようなものを追加すると解決します。
「Worksheets(“従業員一覧”).Cells(no,”G”).Value = Now」