CSVファイルの読み込み①(マクロ/VBA)

#マクロ#VBA#Excel#プログラミング
講義で使うExcelファイルをダウンロードできます。
tm42n17.wixsit...
3つのステートメントのみで組むマクロ(VBA)の基礎動画
• ①マクロ(VBA)とは？覚えることは3つのみ？！
3つステートメントと変・定数の練習問題
• ①基礎練習 マクロ(VBA) (先に基礎動画...
実践版(アプリを作るための知識)
• ①実践版 覚えることは3つのみ (先に基礎動...
マクロ(VBA)辞書
• CSVファイルの読み込み①(マクロ/VBA)
分からないことつまずいたことがあったら、コメントで教えてください。次の動画作成に活かします！！
BGM：MusMus

[@eu-qf9hm]

ありがとうございます♪試してみます！

[@IT-mh8kz]

VBAのワンツーワンレッスンをやってます！
■ko-chan大学
カスタマイズマクロVBA(EXCEL)を在宅オンラインで学習しよう
tm42n17.wixsite.com/uni-ko-chan
無料説明会もやっています。
■ストアカ
カスタマイズマクロVBA(EXCEL)を在宅オンラインで学習しよう
www.street-academy.com/myclass/166767?conversion_name=direct_message&tracking_code=e47eccb6d500086ac3b15af77225c927

[@sho_soneru]

ありがとう

[@crisscriss1964]

Csv 毎回名前違うとか一つじゃなくて4つとかどうやってやるのですか？教えてください。

[@IT-mh8kz]

Sub 計算と判定()
Dim a As Long
Dim b As Long

On Error GoTo Erralabel
i = 2
a = Cells(i, 2).Value ' 前年度の売上
b = Cells(i, 3).Value '今年度の売上

Do Until i > 8
If Cells(i, 2).Value < Cells(i, 3).Value Then '増
Cells(i, 5).Value = "↑"
ElseIf Cells(i, 2).Value > Cells(i, 3).Value Then '減
Cells(i, 5).Value = "↓"
End If
i = i + 1
Loop
Exit Sub
Erralabel:
MsgBox "適切な数値を入れてください"
End Sub

[@IT-mh8kz]

Sub データを移行()
Open "C:\Users\81901\OneDrive\デスクトップ\Book1.csv" For Input As 1
i = 2
Do Until EOF(1)
Input #1, Name, zennen, konnen
Cells(i, 1).Value = Name '氏名
Cells(i, 2).Value = zennen '前年度
Cells(i, 3).Value = konnen '今年度
i = i + 1
Loop
Close 1
End Sub