数学を諦めるというと、いわゆる私立文系を想像するかもしれない。しかし、今回の話は、旧帝や国立医学部を念頭に置いた話である。 数学で高得点を取って合格するのはカッコいい。満点も狙える科目だから苦手科目を補って余りあるくらいの点数を取ることも可…

お笑いトリオ「ジャングルポケット」略してジャンポケの斎藤さんがコロナで10日以上も入院していたというニュースを見た。無事に退院したが、その後も自宅療養をする必要があり、とても大変だったようだ。 メンバーのおたけさんもコロナ陽性になり、こちらは…

黄金糖とは国立医学部を目指している再受験生である。 阪神大震災のとき高校生だったというので、44才前後のおっさん受験生だ。 同世代として、俺は黄金糖を応援している。 黄金糖のブログ(黄金糖の再受験日記～人は一代、名は末代～)によると、いまいち成績…

特定の行や列に注目したいとき、マウスで行番号や列番号を選択してデータを見やすくすることがあると思います。そんな時に便利なのが次の2つのショートカットです。 Shift + Space 行全体を選択。 Ctrl + Space 列全体を選択 データをコピーして貼り付けたい…

Excelを使うとき、マウス操作ではなくショートカットを使うと、仕事が速くなるだけでなく周囲から一目置かれます。職場で頭角を現すには、こういう小さなことの積み重ねが大切です。というわけで、よく使うショートカットキーを10個記録しておきます。 Ctrl …

180度回転 ■選択範囲を180度回転させて新規シートにコピーする '------------------------------------------------ '選択範囲を180度回転させて新規シートにコピーする ' ' 選択範囲の最終セルを貼付け先の最初のセルへ、 ' 最後から2番目のセルを貼付け先…

■セルのコピーあれこれ '------------------------------------------------ 'セルのコピーに関してDestinationの有無による違い '------------------------------------------------ 'Destinationを指定しない場合 ' クリップボードにコピーされる ' コピー…

Function ShuffleArr(targetArr() As Variant) As Variant() Dim tmpArr As Variant Dim rndNum As Long Dim i As Long Dim buf As Variant '元の配列を変更しないように別の配列に代入して操作 tmpArr = targetArr For i = LBound(tmpArr) To UBound(tmpArr…

■チェスボードを作る Sub MakeChessBoard(boardArea As Range, myColor As Long) Dim r As Long Dim c As Long For r = 1 To boardArea.Rows.Count For c = 1 To boardArea.Columns.Count If (r + c) Mod 2 = 1 Then boardArea.Cells(r, c).Interior.Color =…

図1 カレンダー(図1)の作り方 年月を入力すると、日付、曜日、土日塗りつぶしが自動更新されるカレンダーの作り方です。 １. 年と月の入力欄を作る 年(B2)と月(C2)に、不適切な入力を防ぐために入力規則を設定します 年の入力欄(B2)を選択して、データ→デー…

■入試問題を解く '----------------------------------------------------------------------------- '1から999までの整数のうちで、次の整数はいくつあるか？ '(1) 各位の数の和が7となる整数 '(2) 各位の数の和が7の倍数となる整数 '---------------------…

■ランダムな文字列作成 '--------------------------------------------- 'ランダムな文字列作成 ' hasNumがTrueの場合 : A-Z,a-z,0-9 ' Falseの場合 : A-Z,a-zのみ '--------------------------------------------- Function GetRandStr(Optional length As…

■全シート名を取得 Sub GetAllSheetsName() Dim i As Long For i = 1 To Worksheets.Count Debug.Print Worksheets(i).Name Next End Sub ■全シート名を変更(特定の文字列+連番) Sub ChangeAllSheetsName(Changed As String) Dim i As Long For i = 1 To Wor…

■フォルダ内の任意のファイルの名前を全て取得 Sub getAllFileName() Dim fName As String '.xlsmで終わるファイルを検索(返り値はファイル名のみ。パスは含まない) fName = Dir("C:\Users\AAAAA\BBBBBB\*.xlsm") Do While (fName <> "") Debug.Print fName …

■min以上max以下の乱数を取得 Function RndBetween(min As Long, max As Long) As Long Randomize RndBetween = Int((max - min + 1) * Rnd + min) End Function ■min以上max以下の乱数を取得(ワークシート関数使用) Function RndBetween(min As Long, max A…

■選択範囲に1行おきに色を塗る Sub ZebraStriped() Dim i as long For i = 1 To Selection.Rows.Count Step 2 Selection.Rows(i).Interior.Color = RGB(0, 255, 0) Next End Sub ■選択範囲を1行おきに選択するのみ(色は自分で選ぶ) Sub ZebraSelect() Dim my…