- 締切済み
Dim myTorikomibi As Currenc～Next i ご存知のかたご教授願います。
Dim myTorikomibi As Currenc～Next i ヘルプを見ても言葉が理解しずらくて解読しきれず困っています。ご存知のかたご教授いただきたく投稿しました。 Dim myTorikomibi As Currency If myCityBUNRUINO = 0 Then Cells(myPrefNO + 3, 4) = myTantou If myCityBUNRUINO = 1 Then Cells(myPrefNO + 3 - 47, 14) = myTantou If myCityBUNRUINO = 2 Then Cells(myPrefNO + 3 - 47 - myCityNu, 24) = myTantou For i = 1 To 3 If myCityBUNRUINO = 0 Then Cells(myPrefNO + 3, i + 4) = myTorikomibi If myCityBUNRUINO = 1 Then Cells(myPrefNO + 3 - 47, i + 14) = myTorikomibi If myCityBUNRUINO = 2 Then Cells(myPrefNO + 3 - 47 - myCityNu, i + 24) = myTorikomibi Next i
- pyopu
- お礼率66% (33/50)
- Visual Basic
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- maruru01
- ベストアンサー率51% (1179/2272)
No.1です。 No.1の補足欄について。 Forループは、同じ処理を繰り返すのに使用します。 For i = 始め To 終わり 処理 Next i この場合は、iに始め～終わりまでの数値を順に代入して、それぞれのiごとにループ内の「処理」を行います。 質問欄の例では、iは1～3までで、ループ内の処理（If文3行）を3回行います。 その時、処理内にこのループカウンタ変数（i）があったら、 その時のiの値を入力します。 したがってループ内の1行目の、 「i + 4」 は、順番に「1 + 4」「2 + 4」「3 + 4」になっていきます。 Dimは、変数の宣言で、これからこの変数を使用しますよ、ということを宣言しています。 Currencyは、変数の種類で、この変数が文字列用なのか、数値用なのか、などを決めます。 Currencyは、通貨型です。とりあえず数値用と思えばいいでしょう。 さて、失礼ですが、あまりVBA（VB）の基本を理解しておられないように見受けられます。 書店で、入門書を購入して熟読された方がいいと思います。 ヘルプは、不親切で初心者には分かりにくいと思います。 なお、技術評論社の本は結構分かりやすいと思います。 （「かんたんプログラミング～」シリーズなど） 以下のページで適当な名前を確認して、書店で実物を確認してみてはいかがですか。 http://www.gihyo.co.jp/
- 参考URL：
- http://www.gihyo.co.jp/
- maruru01
- ベストアンサー率51% (1179/2272)
こんにちは。maruru01です。 以下の質問では解決出来なかったのでしょうか？ http://oshiete1.goo.ne.jp/kotaeru.php3?q=995169 質問は、回答をしてもらうのが目的ではなくて、その回答で自分の疑問を解決するのが目的ですよね？ 解決していないのに締め切ってしまうのは二度手間では？ さて、コードは単純なIf文とForループだけです。 If (条件) Then (実行内容) という形で、 「もし(条件)が成立していたら、(実行内容)を実行する」 ということです。 例えば、1行目は、 もし変数「myCityBUNRUINO」が「0」なら、 セル（列位置4(=D列)、行位置「myPrefNO」 + 3）に 変数「myTantou」の内容をセットしなさい ということです。 他に何が分からないのでしょうか？ 分からない点があれば、具体的に提示して下さい。
補足
maruru01さま ご回答ありがとうございます。 質問を2度してしまった部分があり申し訳ないです。 If文については、理解でき興奮して締め切ってしまいました。Forループについてが文字を読んでも理解できずにいます。最初の『Dim myTorikomibi As Currency』のDimやAs Currency、 For i = 1 To 3 Next i ループについても理解できずにいます。 そこだけとりだしていろいろ試しているのですが方法を間違っているのかうまくいかない状態でございます。
関連するQ&A
- For ～ Next の中での Dim宣言について
四角形を下方向にずらしながら繰り返し描きたい場合、 以下のソースのようにFor ～ Next の中での Dim宣言を 行うのは一般的でしょうか。 他にスマートな記述があれば教えてください。 よろしくお願いします。 --------------------------------------- '四角形を下方向にずらしながら描画 For i = 0 To 10 Dim rect As New Rectangle(x, y* i , w, h) g.DrawRectangle(Pen.Black, rect) Next
- ベストアンサー
- Visual Basic
- VBAtest
VBAおｎ以下の Sheets("ＯＰ").Select Dim atai As String atai = Cells(2, 2).Value Dim datedata(40) As String For j = 0 To 40 If Cells(j + 3, 2).Value = "" Then Else datedata(j) = Cells(j + 3, 2).Value End If Next Dim shihyou As String For i = 1 To 2 shihyou = Cells(2, i + 2).Cells.Value Sheets(shihyou).Select Dim tmp_c As Integer For r = 1 To 10 tmp_c = 0 For c = 1 To 10 If tmp_c = 0 Then If Sheets(shihyou).Cells(r, c).Value = atai Then tmp_c = c End If Else Dim vals(40) As String For k = 0 To 40 For l = 1 To r + 41 For m = 1 To tmp_c - 1 If Sheets(shihyou).Cells(l, m).Value = datedata(k) Then vals(k) = Sheets(shihyou).Cells(l, tmp_c).Value End If Next Next Next End If Next Next Sheets("ＯＰ").Select For k = 3 To 43 Cells(k, i + 2).Value = vals(k - 3) Next Next End Sub
- 締切済み
- その他（インターネット・Webサービス）
- VBAで行列を作る方法
次のようなプログラミングで１，０，－１の要素で作られる3×3行列を全通り調べています。 この場合３の９乗通り調べることができます。 これを4×4や５×５行列など数を大きくして調べたいのですが、このプログラムを配列を使うなどして 簡単にできる方法を教えてください。 よろしくおねがいします。 Sub test() Dim a As Integer '行 Dim b As Integer '列 Dim c As Integer, i As Integer, j As Integer, d As Integer, e As Integer Dim 内積 As Integer, step As Integer Dim f As Integer, g As Integer, h As Integer, l As Integer, m As Integer, n As Integer, k As Integer, x As Integer Dim sum As Integer, total As Integer Dim aa As Integer, aaa As Integer, aaaa As Integer, bb As Integer, bbb As Integer, bbbb As Integer a = 3 '行 b = 3 '列 c = 0 内積 = 0 con = 0 sum = 0 tatal = 0 aa = 0 aaa = 0 aaaa = 0 bb = 0 bbb = 0 bbbb = 0 x = 0 For n = 0 To 2 For m = 0 To 2 For l = 0 To 2 For k = 0 To 2 For h = 0 To 2 For g = 0 To 2 For f = 0 To 2 For e = 0 To 2 For d = 0 To 2 '要素がすべて１ For i = 1 To a For j = 1 To b Cells(i, j) = 1 Next j Next i If bbbb = 1 Then Cells(a - 2, b - 2) = 0 ElseIf bbbb = 2 Then Cells(a - 2, b - 2) = -1 End If If bbb = 1 Then Cells(a - 1, b - 2) = 0 ElseIf bbb = 2 Then Cells(a - 1, b - 2) = -1 End If If bb = 1 Then Cells(a, b - 2) = 0 ElseIf bb = 2 Then Cells(a, b - 2) = -1 End If If aaaa = 1 Then Cells(a - 2, b - 1) = 0 ElseIf aaaa = 2 Then Cells(a - 2, b - 1) = -1 End If If aaa = 1 Then Cells(a - 1, b - 1) = 0 ElseIf aaa = 2 Then Cells(a - 1, b - 1) = -1 End If If aa = 1 Then Cells(a, b - 1) = 0 ElseIf aa = 2 Then Cells(a, b - 1) = -1 End If If total = 1 Then Cells(a - 2, b) = 0 ElseIf total = 2 Then Cells(a - 2, b) = -1 End If If sum = 1 Then Cells(a - 1, b) = 0 ElseIf sum = 2 Then Cells(a - 1, b) = -1 End If If con = 1 Then Cells(a, b) = 0 ElseIf con = 2 Then Cells(a, b) = -1 End If con = con + 1 Next d con = 0 sum = sum + 1 Next e sum = 0 total = total + 1 Next f total = 0 aa = aa + 1 Next g aa= 0 aaa = aaa + 1 Next h aaa = 0 aaaa = aaaa + 1 Next k aaaa = 0 bb = bb + 1 Next l bb = 0 bbb = bbb + 1 Next m bbb = 0 bbbb = bbbb + 1 Next n End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロについて
お手数ですが誰か教えてください！ BのデーターをAに集計するマクロを作ったのですが 処理速度とっても遅いのです。 高速で処理する方法はありませんでしょうか？ 私が作ったマクロ Sub 集計() Dim Z As Integer Dim i As Integer Dim X As Integer For Z = 2 To 2000 For i = 2 To 2000 For X = 3 To 20 If Worksheets("A").cells(Z, 1) = Worksheets("B").cells(i, 1) And Worksheets("A").cells(1, X) = Worksheets("B").cells(i, 14) Then Worksheets("A").cells(Z, X) = Worksheets("B").cells(i, 16) End If Next X Next i Next Z End Sub どこかが間違っている気がしますがマクロ初心者のため 先に進めません。 どうかご教授よろしくお願い致します。
- 締切済み
- Visual Basic
- For next使う場合、next iはできない？
vbsでFor next使う場合、next iはできないのですか？ for i = 1 to 2 msgbox "" next i をすると "ステートメントの末尾が不正です"800A401 になります。 しかし for i = 1 to 2 msgbox "" next にすると、問題ないです。 VBAではnext iでも実行できるけどVBSではだめなのでしょうか？ 理由を教えてください。
- ベストアンサー
- Visual Basic
- 【Excelマクロ】もっと頭の良い書き方って無いかな？
5行空白列があったらそこで処理を終わりたいんですが、もっといい書き方はないでしょうか？ 下記が私の考えた頭の悪いやり方です。 Sub macro() Dim i As Integer For i = 1 To 1000 If Cells(i, 1) = "" Then If Cells(i + 1, 1) = "" Then If Cells(i + 2, 1) = "" Then If Cells(i + 3, 1) = "" Then If Cells(i + 4, 1) = "" Then If Cells(i + 5, 1) = "" Then MsgBox (i - 1 & "行目で終わりです") Exit For End If End If End If End If End If End If Next End Sub
- ベストアンサー
- オフィス系ソフト
- ＶＢＡの記述で、あるシートを別ファイルにした場合
エクセル2002で、商品を管理しています。 １列目に品番をいれると、２列目に品名が表示するようにし、 新規の品番は品名を入れると、追加登録されるようにＶＢＡを組みました。 今度、このシート"商品"を別ファイル(商品.xls)にしたいと思うのですが、 どうしても、やり方が分かりません。 よろしくお願いします。 Public Sub Worksheet_Change(ByVal Target As Excel.Range) Dim 品番 As String Dim 品名 As String Dim i As Long With Target If .Column = 1 Then 品番 = .Text For i = 1 To 65536 If Sheets("商品").Cells(i, 1) = "" Then ActiveSheet.Cells(.Row, 2) = "" Exit For ElseIf 品番 = Sheets("商品").Cells(i, 1) Then ActiveSheet.Cells(.Row, 2) = Sheets("商品").Cells(i, 2) Exit For End If Next i End If If .Column = 2 Then 品名 = .Text 品番 = ActiveSheet.Cells(.Row, 1) If 品名 = "" Or 品番 = "" Then Else For i = 1 To 65536 If Sheets("商品").Cells(i, 1) = "" Then Sheets("商品").Cells(i, 1) = 品番 Sheets("商品").Cells(i, 2) = 品名 Exit For ElseIf 品番 = Sheets("商品").Cells(i, 1) Then Exit For End If Next i End If End If End With End Sub
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA 2010】空白セルの検索
ある範囲の中から書式設定も文字も入っていないセルを選んできて、 それらには何も入力がされていないという警告を出そうと考えています。 Dim k As Integer Dim msg As String Dim 空欄() As Variant k = 0 msg = " " For i = 1 To 10 For j = 1 To 10 If Cells(i , j) = Cells(i , j).SpecialCells(xlCellTypeBlanks) Then ReDim Preserve 空欄(k) As Variant 空欄(k) = Cells(i , j).Address k = k + 1 End If Next Next If 空欄(k) <> " " Then For i = 0 To k - 1 msg = 空欄(i) & vbCrLf Next MsgBox (msg & "が入力されていません。") Else ・ ・ ・ と続くのですが、上記のコードでエラー(型が一致しない)が起きます。 素人のため原因がわからないので、どなたか修正をお願いいたします。
- 締切済み
- その他（プログラミング・開発）
- [VBA] For文の使い分けについての疑問
こちらの識者の方々にはいつもお世話になっています。 VBAの質問です。 環境は下記になります。 OS=windows7 pro 64bit Office=Excel2010(14.0.7128.5000) ・疑問点 For each nextもFor nextも、最下行まで処理をしたいときに使用することが多いのですが、 単列の場合はFor each next、複数列の場合はFor nextというような使い方をしています。 例：For each next Sub test() Dim ws As Worksheet Dim r As Range Dim endRow As Long Set ws = ThisWorkbook.Sheets(1) endRow = ws.Cells(Rows.Count, 1).End(xlUp).Row For Each r In ws.Range("A1:A" & endRow) If r.Value Mod 2 = 0 Then r.Font.Bold = True Next r End Sub 例：For next Sub test2() Dim ws As Worksheet Dim i As Long Dim endRow As Long Set ws = ThisWorkbook.Sheets(1) endRow = ws.Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To endRow If ws.Cells(i, 1).Value Mod 2 = 0 Then ws.Cells(i, 1).Font.Bold = True If ws.Cells(i, 2).Value Mod 3 = 0 Then ws.Cells(i, 2).Font.Bold = True Next i End Sub 単純に、複数列での処理をする場合にはFor each next文を2つ書かないといけないと思い（込み）、 上記のような運用にしていますが、そもそもこの考え方は合っていますでしょうか？ 単列の処理であってももちろんFor next文で問題なく使用できますし、 複数列の処理の場合もFor each next文で処理することはできます（冗長ですが）が、 VBA的に正しいというか、合理的な考えであるのかどうかが疑問です。 みなさんはFor each nextとFor nextをどのように使い分けていますか？ 質問に不備不足等ございましたらご指摘ください。 ご面倒お掛けしますがよろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- VBA どこでもセル選択
教えて頂いたＶＢＡなのですがもう一つ Sub Macro1() Dim Ws01 As Worksheet Dim Counter As Long, i As Long, j As Long Dim INP As String Set wS = Worksheets("Sheet4") wS.Cells.ClearContents For i = 3 To ActiveSheet.UsedRange.Rows.Count INP = "" For j = Selection(1).Column To Selection(Selection.Count).Column If Cells(i, j) = 1 Then INP = INP & Cells(2, j) & "," End If Next j Counter = Counter + 1 If INP <> "" Then wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1) End If Next i End Sub -------------------------------------------------------------- For i = 3 のところを3としないでどのセル（行）にも対応させたいのですが どうすればいいでしょうか？
- ベストアンサー
- Excel（エクセル）
補足
maruru01さま！入門書のご紹介も記入していただきありがとうございます。実は入門書は別のものを2冊持っておりまして・・・読んでも読んでも消化不良でした。先ほど会議に入ってしまうのでとりいそぎお礼をこちらの補足に記入したつもりが入っていなくて自分は落ち着きが足りなかったことを反省しています。早速今から勉強させていただきます！取り急ぎお礼を入力させていただいています。