パソコン仕事5倍塾
35,000人を指導した東大卒・元日本IBM社内講師が直伝
MENU
明石 照伸さんの投稿
(投稿ID: 453)
小川慶一さんのコメント
(コメントID: 1262)
外部アカウントで登録
たった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日 19:20
2024年04月28日 15:34
2024年04月28日 12:07
2024年04月28日 11:43
2024年04月28日 11:42
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: 453)
以下のようにコードを考えたて、一応
回答できたつもりですが、
動画解説の観点が全然違っていたので
驚きました。
上下の行で値が変化したことをトリガーに
処理を行うやり方というのは、以前の問題でも
私自身使っていますが、
今回のようにシンプルに変わったらインクリメントする、
のように、利用できるとは考えていませんでした。(^^;
考えてみれば元々の表にそういう作成者の
ロジックというか意図があってそのように
レコードが並べられているのですから、
それを素直に読み取っているとも言えますね。
毎回勉強になります。(^^
=====
Sub furiwake()
Dim gyo
For gyo = 4 To 19
’ <A B Cの判定>
If Mid(Range("d" & gyo).Value, 3) = "A" Then
Range("b" & gyo).Value = 1
ElseIf Mid(Range("d" & gyo).Value, 3) = "B" Then
Range("b" & gyo).Value = 2
ElseIf Mid(Range("d" & gyo).Value, 3) = "C" Then
Range("b" & gyo).Value = 3
End If
’<F列の値からもってくる >
Range("c" & gyo).Value = Mid(Range("f" & gyo).Value, 2, 1)
Next
End Sub
=====
小川慶一さんのコメント
(コメントID: 1262)
実は、マクロ書くときの基本パターンはかなり共通してたりします。
この課題は、インクリメントする部分は、何度もやってきた、条件に一致する行があったら、その中身を別の表に転記するというパターンと同じですね。
後半は、基礎編フォロー動画18回等でやっているパターンと同じです。