受講生 さん:

こちらではごぶさたです。
ぜひ、楽しく学んでください。

>ｅｘｃｅｌが得意でない方の作った表で、途中に余計なものが入りまくりソートすらままならなかった1日がかりのコピペ作業がたった数行で「あっ」という間に終わってしまい、めちゃテンションがあがって感動したのを思い出しました。

分かります (^^*

> 誰でも楽に理解できるハナコのステップを考案した小川先生ってやっぱ天才かもで

プログラム書けるようになった人は頭の中で無意識にぼんやりとはやってはいるだろうことではあるんですけどね。
パターン化し、でステップバイステップで画面上で状況確認しながら再現できるようにし、一連の手続きに名称をつけることで伝わりやすくなったのは確かですね。

ひきつづきよろしくお願いいたします。
復習すると、いろいろ再発見もあるかと思います。




>小川様
>仕事を離れて1年ほど経過し、忘却の彼方へ飛び去ろうとするVBAの知識を留めるべく復習を開始しております。
>1年前、For Next を学んだ翌日に実務で作成した第１号のVBAが下記のコードなのですが、
>ｅｘｃｅｌが得意でない方の作った表で、途中に余計なものが入りまくりソートすらままならなかった1日がかりのコピペ作業がたった数行で「あっ」という間に終わってしまい、めちゃテンションがあがって感動したのを思い出しました。誰でも楽に理解できるハナコのステップを考案した小川先生ってやっぱ天才かもです。
>
>
> Dim gyo
>
> For gyo = 1 To 510
>
> If Range("ay" & gyo) = "実績（+見通し）" Then '項目名
>
> Range("az" & gyo - 1 & ":be" & gyo - 1).Value = Range("az" & gyo & ":be" & gyo).Value '上期コピペ
> Range("az" & gyo - 1 & ":be" & gyo - 1).Interior.Color = vbCyan '上期色付け
>
> Range("bg" & gyo - 1 & ":bl" & gyo - 1).Value = Range("bg" & gyo & ":bl" & gyo).Value '下期コピペ
> Range("bg" & gyo - 1 & ":bl" & gyo - 1).Interior.Color = vbCyan '下期色付け
>
> End If
>
> Next

2015/12/20 22:12