Jose's FANTASY SPORTS!

アメリカンフットボールを中心にスポーツ好きで、カントリーギター好きのJoseによる雑記帳です。

細かい事は分からんがVBAがやりたい-5-

2010年03月27日 23時00分00秒 | いきなりVBA(Excel)
[ いきなりVBA ]
いきなりVBA 第1回 LOG
前回は、セルに値を書き込むVBAをやりました。
でも実際に使う場合って、決まった文言を書き込むなんて場面はほとんど無いものですよね。

だから、もうちょっとだけ実用的なコードに進んでみましょう。

1.別のセルの値を書き込む

Range("A2").Value = Range("B5").Value
A2セルにB5セルの値を書き込みます。
B5セルに書いた文字列(“うつし”)を、ボタンクリックで、A2セルに書き込みました。
そんなのどうすんだ?って言わないで。結構使えるんだから。

2. 別のセルの値に、固定文字列を付加する
計算用のセルの値は数字にしといて、別のセルに~枚みたいな表記をする時とか、便利そうです。
Range("B2").Value = Range("D3").Value & "枚"

3. セルに、今日の日付を入力する
ようやく、それらしくなりました。
“今日”の日付は、Dateで取得できます。
Range("C2").Value = Date

4. セルに昨日の日付を入力する
これも、それらしいですね。
昨日の日付は、Dateから1を引けばOKです。便利ですね。
Range("B2").Value = Date - 1
もちろん、“明日”はDate + 1です。

5. セルの値を足したりとか
B2とB3に数値を入力しておいてください。
Range("B4").Value = Range("B2").Value + Range("B3").Value
B4に、B2+B3の計算結果を入力します。

普通にワークシート上で計算すればいいのですが、数が多かったり、予め行数が分かっていない時とかには、こうした方が良い事もあります。
他の人に数式を消されたりする心配も無いし。

...あ、でも、#42:ダレン・シャーパーと#51 ジョナサン・ヴィルマが合計されたら、単純な合計以上に強力なはずですね...。
計算が間違ってるんでしょうか?(笑)

ともあれ、今回のは業務に使えそうな匂いのするコードですね。
業務で使うツールもこういう事の積み重ねです。
ここまででも結構、便利になってきたと思いますよ。

BGM♪ I'm Movin' On / Hank Snow
コードを辿って音程があがっていく出だしがキャッチーな、素敵な歌です。
ハンク・スノウは、自らもギターが達者で、そのPlayも呼び物のひとつになっています。この映像でも、見せ場として入れていますね。
VBAで、セルの値を移し(MOVE)たりって言う事で、選んでみました。強引か...。
コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする