Ａ,Ｄ,Ｆ列だけにオートフィルタをかけることってできるのでしょうか？ って、できない！ってありきたりの答えじゃ Quiz にならないんで、実は可能なんですが、どうやったんでしょうね？ こんな感じです。 ヒント： これは純粋に一般機能だけの問題です。オ…

ワークシートが１枚存在するブックに対して、セル A1 に文字列を入力して、↓のマクロを書いて実行したところ、MsgBox に False と出ました。（セルの書式設定は、標準 のままです。） Sub Macro1() Dim X1 As String Dim X2 As String X1 = ActiveSheet.Rang…

ワークシートが１枚存在するブックに対して、↓のマクロを書いて実行したところ、MsgBox は表示されずに、イミディエイトウィンドウに エラー：13 型が一致しません。 と出ました。 Sub Macro1() On Error Resume Next MsgBox Worksheets(1).Range("A1").Valu…

パスが違っていても同じブック名のブックを同時に開くことはできない…ってことは、Excel の使い手なら知っているかと思います。 じゃ、この図のようなことはありえない？でも、これは画像をインチキして作ったものではありません。さて、どうやったのでしょ…

シート上にオプションボタンを配置するなら、昔ながらの｢フォーム｣コントロールのものにすべきです。 では、その｢フォーム｣コントロールのオプションボタンで、図のようなことをするにはどうすればいいのでしょう？ (1と2で１セット，3と4で１セットとなって…

珍しく一般機能のQuizです。Ａ＝Ｂ かつ Ｂ＝Ｃ ならば Ａ＝Ｃ というのは、数学では常識ですが、Excelではどうでしょう？どうも必ずしも成り立つわけではないようです。 図のとおり、B1:B3 の数式の結果が C1:C3 のようになるには、A1:A3 に何が？ ※.Excel …

If...Then...Else ステートメントの単一行形式は If condition Then [statements][Else elsestatements] という構文ですが、[statements] と [Else elsestatements] の両方とも省略することはできるでしょうか？ "できる"or"できない"だけじゃなくて、ちゃん…

たまたま、Ifについてアレコレやっていて、ヘルプを見ていて気付いたから、書いているだけなんですが。(-_-;) If...Then...Else ステートメント は、 If condition Then [statements][Else elsestatements] と、単一行形式で記述する方法と If condition The…

シートの Change イベントや BeforeRightClick イベントの Target が複数セルになるってことは、しょっちゅうなので、それを考慮したコードを書くのが普通です。 （答えてねっと あたりなんかは、素人くさいので平気で Target.Column や Target.Row なんてし…

マクロでファイルを開いたのに、AutoOpen が実行されました。 勿論、明示的に AutoOpen を実行させるコードなんて書いていないのに… こんなことってあり？ クイズというよりも、単なるひっかけ問題といった方が適切かも。(-_-;)

｢フォーム｣ツールバーの｢エディットボックス｣をワークシート上で利用するにはどうすればいいでしょうか？ ２ステップあります。１ステップ目が分かれば、２ステップ目は比較的簡単です。 マクロじゃなくて一般機能で可能です。

Sheet1 にこんなデータ↓があるとします。(２行目以降は乱数で適当に作っただけ) そして、"KEY"別に"DATA"をピボットテーブルで集計しようと QuizPivotTable マクロを作りました。 Sub QuizPivotTable() Dim shtA As Worksheet Dim rngA As Range Dim pvtA As…