昔々、ママチャリで立川から新宿までを往復したことがある。直線距離で約25キロなので往復50キロである。 いくつかコツを記しておこう。 タイヤに空気を入れる ママチャリに乗っている人はタイヤの空気圧を軽視しがちだ。しっかり空気を入れれば、見違えるほ…

俺の身長は179センチ。もし、シャンソンVマジックに入団したら、現メンバーの構成から考えて、4番ないし5番ポジションを任されるだろう。 俺の体重は59キロ。おそらく、ENEOS戦では渡嘉敷選手に、トヨタ自動車戦ではエブリン選手に簡単に吹っ飛ばされるはず…

ラーメンを食べたくなったら味噌汁を飲む 小腹が空いたらナッツを食べる 清涼飲料水は禁止 クリームパンではなくアンパンを選ぶ 唐揚げ弁当ではなく幕の内弁当を選ぶ 甘い物が欲しくなったら果物を食べる 要するに、「感じるな！考えろ！」である。 惰性で食…

第23回Wリーグ(2021-22シーズン)の選手リスト(2021年9月時点)をもとに、最も多くの選手が付けている背番号は何かということを調べてみた。 背番号 人数 2 10 7 9 12 9 5 8 11 8 8 7 10 7 14 7 23 7 3 6 13 6 15 6 18 6 0 5 6 5 17 5 25 5 1 4 9 4 20 4 21 4 …

Excelで作った2つの表を見て欲しい。 表1、表2どちらも合計欄にはSUM()関数を入れています。しかし、表2では正しく計算されていません。見やすくするために"円"という単位を付けているので、データが数値ではなく文字列であると認識されているからです。こん…

女子バスケットボール日本代表チームは、ヨルダンの首都アンマンで開催されているアジア杯に参戦中である。 東京五輪代表メンバーのうち、ベテラン勢は今回の大会のメンバーには選ばれていないので平均年齢は約23才という若いメンバー構成である。 チームス…

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

お笑いトリオ「ジャングルポケット」略してジャンポケの斎藤さんがコロナで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…