パソコン仕事5倍塾
35,000人を指導した東大卒・元日本IBM社内講師が直伝
MENU
受講生さんの投稿
(投稿ID: 1122)
Sub bangou() Dim gyo Dim Asiryo Dim Bsiryo Dim Csiryo Asiryo = 0 Bsiryo = 0 Csiryo = 0 For gyo = 4 To 19 If Range("D" & gyo).Value = "資料A" Then Range("B" & gyo).Value = 1 Asiryo = Asiryo + 1 Range("C" & gyo).Value = Asiryo ElseIf Range("D" & gyo).Value = "資料B" Then Range("B" & gyo).Value = 2 Bsiryo = Bsiryo + 1 Range("C" & gyo).Value = Bsiryo Else Range("D" & gyo).Value = "資料C" Then Range("B" & gyo).Value = 3 Csiryo = Csiryo + 1 Range("C" & gyo).Value = Csiryo End If Next End Sub
If Range("D" & gyo - 1).Value <> Range("D" & gyo).Value Then
ゲストさんのコメント
(コメントID: 2287)
外部アカウントで登録
たった1ヶ月で人生が劇的に変わりました
佐藤信さん
役員クラスの方から高い評価を受けるようになりました。
佐賀県 - 岩本徹さん
今までまったく知らなかったショートカットキーを使いまくっています。
東京都 - 鷹觜慶さん
年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。
東京都 - 宗内隆明さん
受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。
東京都 - 佐伯とも子さん
ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした
東京都 - 飯田倫子さん
2024年04月27日 15:36
2024年04月25日 07:00
2024年04月23日 21:36
2024年04月23日 10:01
2024年04月22日 03:23
2024年04月28日 20:53
2024年04月28日 19:20
2024年04月28日 15:34
2024年04月28日 12:07
2024年04月28日 11:43
2022年02月24日 10:59
2019年12月23日 05:57
2019年09月20日 12:29
表示できる投稿はありません。
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
2022年02月02日 00:00
2022年02月02日 03:00
2022年02月02日 06:00
2022年02月02日 09:00
2022年02月02日 12:00
2024年02月15日 18:30
2024年02月09日 17:05
2024年01月19日 13:00
2023年12月31日 17:00
2023年12月21日 14:00
2024年04月27日 23:02
2024年02月28日 14:53
2024年02月27日 14:27
2024年02月27日 14:21
2024年02月27日 14:15
受講生さんの投稿
(投稿ID: 1122)
IF文の条件を「<>」にすることは、思い付きませんでした。
「If○○ = ×× Then」だけでなく、「<>(等しくなかったら)」という使い方もできるのだなと、解説を観て思いました。
「等しければ」の反対は「等しくなければ」だから、「=」の条件でIF文を作るのが難しい、あるいはややこしくなるようなら、
「<>」の条件を考えて、作ってみるという方法があるのだなと思いました。
ゲストさんのコメント
(コメントID: 2287)
>「If○○ = ×× Then」だけでなく、「<>(等しくなかったら)」という使い方もできるのだなと、解説を観て思いました。
>「等しければ」の反対は「等しくなければ」だから、「=」の条件でIF文を作るのが難しい、あるいはややこしくなるようなら、
>「<>」の条件を考えて、作ってみるという方法があるのだなと思いました。
発展編1に進むと、同様の趣旨で Not 演算子というものも登場します。
これもよく使います。状況によっては、 <> は使えず、 Not 演算子を使うよりない、というケースもでてきます。