職場への不満を垂れてた時にたどり着いた結論

自分用メモ

喫煙室でこんなやりとりがありました

Q,こんなに忙しくて、仕事が回らない理由はなんだ？

A,運用が悪い

↓

Q,どうして運用が悪いんだ？

A,上司が悪い、自分たちの仕事が忙しいから周りに手が回ってない

↓

Q,どうして手が回らない程忙しいんだ？

A,人が足りない

↓

Q,どうして人が足りないんだ？

A,給料が安い

↓

Q,どうして給料があがらないんだ？

A,…　どうしてだろう？

↓

Q,どうしたら給料が上がるんだ？

A,みんなが団結して、管理下とかに訴えれば良いんじゃない？

↓

Q,どうして訴えないんだ？　自分の意見を匿名で報告できるシステムがあるのに

A,みんながみんなしてるわけじゃない
　大半は愚痴ってるだけ
　でもそういう意見も上がってる
　でも、給料は上がらない

↓

始めに戻る


別に意味はないです、こういう会話がありました

VBA入門⑤ No.1 特定列の総データ件数を調べる

サンプル

  • A列総データ件数を調べ、アラートで表示します
  • 空白セルや数式はカウントされません
Option Explicit
Sub myDcnt()
    Dim myYCnt As Integer
    
    myYCnt = Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants).Count
    MsgBox "データ件数は" & myYCnt & "件です"
End Sub

VBA入門まとめへ戻る

VBA入門③ No.1 〜の数を数える 「オブジェクト名.count」

  • オブジェクトの数を数えるプロパティです

文法

オブジェクト名.count

サンプル

  • シートの数をアラートで表示します
Option Explicit
Sub myCount()

MsgBox Sheets.Count

End Sub

VBA入門まとめへ戻る

VBAのお勉強　途中経過

VBA入門

とりあえず、基本的な構文は一通り終わりました

4日かかった＞＜

リファレンスサイトの簡単なサンプルを見て「なんとなく…これはこういうプログラムなんだ」って理解できるようになった！

うれしい＞＜

VBA入門② No.10 エラー処理 「On Error GoTo」

VBA入門
  • エラーが発生した時、処理を分岐することができるよ
  • Javascriptの「try〜catch文」みたいなものかな？
  • 超便利＞＜

文法(While)

On Error GoTo ラベル名

ラベル名:
　　　　　エラー処理
続きを読む

VBA入門② No.9 フロー制御 「Exit」

VBA入門
  • 処理を途中で終了させるステートメントです
  • 終了させたい場所に書くだけです、ただそれだけです

文法(While)

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub

VBA入門まとめへ戻る