- ベストアンサー
VBAにて
初歩的な質問になりますが 下記の件で教えていただきたく投稿しました。 ご経験者、知識ある方々の知恵やアドバイスを頂ければ幸いです。 AとBは仮です (1) A=B と、A:=Bはどう違い、どのように使い分けするのでしょうか? (2) Value<>"" は、どういう意味なのでしょうか? よろしくお願いします。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- Excel VBAにて
Activate と Select は通常、どう使い分けるものでしょうか? いまいち、使い分けが理解できません。 ご経験者の方々、知識ある方 アドバイス・ご意見を頂ければ助かります。 宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- Excel VBAにて
Msgboxの()の使い分けを教えてください。 かっこが必要な時、不要な時の区別がわかりません。 経験者の方々、知識ある方 アドバイスやご意見を頂ければ助かります。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- VBAで実行時エラー'13': がでます
初歩の初歩ですいません。 VBAで Dim A As Integer Dim B As Integer Dim C As Integer Dim gokei As Integer For i = 8 To 70 A = Cells(i, 4).Value B = Cells(i, 5).Value C = Cells(i, 6).Value goukei = A + B + C Cells(i, 7) = goukei Next i としていますが A = Cells(i, 4).Value のところで今使っているシートだと止まってしまいます。 新規でワークシートを使って仮に数字を代入すると普通に動きます。 今使っているシートもセル内には =100 と入力して 100 と表示され セルの書式設定も数値になってるんですがどうしてでしょうか?
- ベストアンサー
- その他MS Office製品
- 【VBA】 通し番号の入力について
こんばんは。 こちらの識者の方々にはいつもお世話になっています。 VBAの件で質問があります。 B列の最終行までA列に001から文字列で連番を振りたい場合、どのような構文になりますでしょうか。 Range("A1:A" & Range("B" & Cells.Rows.Count).End(xlUp).Row).Value = Format(row, "000") は通らなかったのですが、なにかいい構文はありますでしょうか。 データは必ず1000行以下ですので、番号は3桁で大丈夫です。 よろしくお願いいたしますm(_ _)m
- ベストアンサー
- その他MS Office製品
- Excel VBAにて
FormulaR1C1の用途、または意味が分かりません。 ご経験者の方々、知識ある方の ご意見・アドバイスを頂ければ助かります。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- VBAのループ処理について
VBA(Excel2000)にて、参考書等を見て下記のコードを作成しました。 「セルA1かA10において、同じ数値が続けて入力されたら、最後のセル(一番下のセル)をB列にコピーする。」 Sub ループ() Dim a As Long With Range("a1:a10") For a = 1 To .Count - 1 If .Cells(a).value <> .Cells(a + 1).value Then .Cells(a, 2).value = .Cells(a).value End If Next .Cells(.Count, 2).value = .Cells(.Count).value End With End Sub 上記の「For idx = 1 To .Count - 1」の意味が分かりません。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- vba セルの行頭に連番を付加
セルの行頭に連番を付加したいので下記のようなコードを作成しました。 B列をナンバリング用の仮セルとして使いましたが 仮セルを利用しない方法はありますか ? Option Explicit Sub セル連番付加() Dim i As Long For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row With Cells(i, "B") .Value = i - 1 .NumberFormatLocal = "@" .Value = Format(.Value, "00") End With Cells(i, "C") = Cells(i, "B") & " " & Cells(i, "A") Next End Sub
- ベストアンサー
- Excel(エクセル)
- VBAの3次方程式にたいする質問
VBAで3次方程式 AX^3+BX-Cの編集を行っているのですが、130行目から170行目の意味がよくわかりません。大変困っています。どなたかお答えしていただけないでしょうか? 全てがわからずとも、なんらかの知識があれば助言お願いしたいです。 Sub test() 100 A = Range("A1").Value 110 B = Range("A2").Value 120 C = Range("A3").Value 130 CC = 0: AC = 0.1 140 XC = CC: GoSub 170 150 YC = BC: XC = AC + CC: GoSub 170: DC = CC: CC = DC - AC * YC / (BC - YC) 160 If Abs(DC - CC) >= 0.000001 Then GoTo 140 Else GoTo 180 170 BC = A * XC ^ 3 + B * XC - C: Return 180 Range("A7").Value = CC End Sub
- ベストアンサー
- 数学・算数
- VBA Match関数の使い方について
お世話になります ご教示頂けたら幸いです シート結果セルE4の値を検索してシート結果G4の値を 検索行のB列に値を転記したいです 下記のように書くとMatch関数行でエラーが出てしまいます どの様にすればいいのでしょうか? お手数おかけしますが 何卒よろしくお願いいたします With Sheets(Worksheets("結果").Range("A4").Value) WorksheetFunction.Match(Worksheets("結果").Range("E4").Value, Range("A1:A1000"), 0).Offset(3) = _ Worksheets("結果").Range("A4").Offset(2).Value End With
- 締切済み
- Excel(エクセル)
- VBAプログラミング 改行について
教えてください。 下記のような改行をさせる関数を作成しました。 そのこの関数を読み込みさせ、データをあるセルに貼り付けるように指示したのですが、うまくいきません。デバックをすると、値は取得できているのですが、セルの貼り付けがおもうようにいきません。 セルが結合セルだからだめなのでしょうか?? 値は#VALUEになります お知恵をお借りできませんか? エクセルには下記のように記入しています。 =kaigyou("ああああ\nあああああああ") **************************************************** Function kaigyou(a) Dim b As String 'Excelのファイル名を変更の場合は↓これも変更して! Const file_name = "test.xls" 'シート名を変更の場合は↓これも変更して! Const print_sheet = "Sheet1" '特典内容の改行 b = Replace(a, "#n", vbCrLf) Workbooks(file_name).Worksheets(print_sheet).Cells(4, 25).Value = b End Function **********************************
- ベストアンサー
- その他(プログラミング・開発)
- 外付け電話を接続して留守電モードにする方法や、FAX自動受信、電話の応答方法について教えてください。
- Windows10での設定方法や、無線LAN接続の手順についても詳しく教えてください。
- 質問内容はブラザー製品に関するものです。アナログ回線を利用している場合の留守電、FAX自動受信の設定方法も教えてください。
お礼
ご投稿有難うございます。 わかりやすい説明に、私にも分かりやすく助かりました。