ベストアンサー

エクセルＶＢＡでＥＮＤ命令を自動で出したいのですが

2008/08/06 11:24

エクセルＶＢＡでＩＦ命令やＳＥＬＥＣＴ命令を書き終わった後ＥＮＴＥＲキーを押すと次の行にＥＮＤ命令を出したいのですがどうすればいいのでしょうか。他にもＦＯＲ命令の後にＮＥＸＴ命令を出したいのです。よろしくお願いします。

k_schick
お礼率60% (33/55)

オフィス系ソフト
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

hana-hana3
ベストアンサー率31% (4940/15541)

2008/08/06 11:32 回答No.1

ＶＢＥにはそのような設定はありません。自身で気を付けるしか無いでしょう。

質問者

お礼 2008/08/06 11:38

ありがとうございました。てっきりあると思ってました。

関連するQ&A

エクセル　VBA　Rowsプロパティ？

エクセル　VBAにて　ある列の空白セルを調べて空白があった場合行全体を選択して削除したいため、下記のように書き込みました。 Dim idx As Integer For idx = 5 To 2204 If ActiveSheet.Cells(idx, 2) = "" Then Rows("idx:idx").Select Selection.Delete Shift:=xlUp End If Next idx Rows("idx:idx").Selectが間違っていると思うのですが変数を使用しての行指定がわかりません。どなたかご教示お願いいたします。
EXCEL VBA

EXCEL VBAで空白行が現れたら「小計」の文字を入力したいと思い以下のように記述しましたが、うまくいきません。どこがおかしいのか教えてください。宜しくお願いします。 Sub write小計() Dim i As Integer Dim rowcnt As Integer rowcnt = Cells(1, 1).CurrentRegion.Rows.Count Range("B1").Select For i = 1 To rowcnt If Cells(i, 2).Value = "" Then Value = "小　計" ActiveCell.Offset(1).Select Next i End Sub
エクセルVBAについての質問です。

エクセルVBAについての質問です。 A列のCという商品名が入った列を削除したい場合下記のようにすれば可能かと思いますが、C列のCという商品名が入った列を削除したい場合どのようにすればよいか教えて下さい。 VBAに関してまだ初心者ですがどうぞよろしくお願いします。行 = 1 Do 行 = 行 + 1 If Cells(行, 1) = "" Then Exit Do End If '行の値がC以外の時は次の行に移る Do If Cells(行, 1) = "C" Then Rows(行 & ":" & 行).Select Selection.Delete Shift:=xlUp Else Exit Do 'ジャンプ先は内側のDo～Loopのすぐ下 End If Loop 'ジャンプ先はここ If Cells(行, 1) = "" Then Exit Do End If Loop End Sub
EXCEL VBAについて

EXCEL VBAについて教えてくださいやりたいことは以下の通りです。・全シートJ列1～100行目を検索しアルファベットが含まれるセルが存在すれば上のセルをコピーするここまで作ったのですが上手くいきません Sub VBAsample() Dim GYO As Long For GYO = 1 To 100 If Find([a-z], LookAt:=xlPart) Then Cells(GYO, 10).Value = Cells(GYO - 1, 10).Value End If Next GYO End Sub 添削をお願いします
エクセルVBAについて

エクセルのVBAについて、質問させて下さい。下記コードはform上に記述しました。オプションコマンドのオブジェクト数をcaseで選択し、その選択したものを格納しています。 Private Sub CommandButton1_Click() Dim i As Long lngData(1) = 0 For i = 1 To 12 If Me.Controls("OptionButton" & i).Value Then lngData(1) = i Exit For End If Next Select Case lngData(2) '←次のUserForm Case 1 Unload Me UserForm2.Show ・・・・ End Select End Sub でまた別form上で呼び出しているのですが、この時にオプションコマンドcaptionを格納するにはどういったコードになるのでしょうか？またそれに際してコードに変更がある場合も教えてください。素人質問ですので、そもそもオプションボタンのcaptionは格納なんてできないのなら諦めます。では、よろしくお願い致します。以上
Excel VBAの「FOR～NEXT関数」について

VBAを初めて2ヶ月の超初心者です。シートが2枚あり、sheet1は仕入金額一覧、sheet2は送付案内書になっています。VBAを利用して「sheet1から1行、sheet2へ転記し印刷後、次の行へ」と言う処理をしています。 Sub 送付案内() Dim 行番号 As Integer For 行番号 = 5 To 298 If Cells(行番号, 15).Value = 1 Then Range(Cells(行番号, 2), Cells(行番号,12).Select Selection.Copy Sheets("送付案内").Select Range(Cells(60, 1), Cells(60, 11)).Select ActiveSheet.Paste Application.CutCopyMode = False Worksheets("送付案内").PrintOut Sheets("作業").Select End If Next End Sub Sub 仕入先名() Dim 行番号 As Integer For 行番号 = 5 To 298 Sheets("作業").Cells(行番号, 2) = WorksheetFunction.VLookup(Cells(行番号, 1), Sheets("仕入先マスタ"). _ Range("$A$3:$B$1135"), 2, False) Next End Sub これでVBAを実行した場合、仕入金額一覧の並び順と微妙(2～3点）に異なる順番で印刷されました。仕入先名や仕入金額に間違いはありませんでした。同様の経験のある方等、原因がわかる方がいらしたら、教えてください。よろしくお願いします。
vba 　

VBAはじめたばかりで、躓きました。下記を実行すると、”Nextに対するForがありません。”とでます。なぜこうなるのか教えてください。　G2～列2000の間が空白になるまで、　下記の処理を続けるようにしたいと思っています。　Dim i As Integer For i = 7 To 2000 Do If Cells(2, i) = "" Then Range("G2").End(xlToRight).Select ActiveCell.CurrentRegion.Resize(6, 5).Select Selection.Cut Range("B2").End(xlDown).Select ActiveCell.Offset(1).Select ActiveSheet.Paste Exit Do End If Next i Loop 　よろしくお願いします。
エクセルxpのVBA

VBA初心者です。下記を実行すると、「elseに対応するifがありません」と出ます。なぜかわからず困っています。 For hiniti = DateSerial(Range("A3"), Range("A4"), 21) To DateAdd("m", 1, DateSerial(Range("A3"), Range("a4"), 20)) ActiveCell.Value = hiniti ActiveCell.Offset(0, 1).Select If ActiveCell.Column = 7 Then ActiveCell.Offset(1, -7).Select Else: ActiveCell.Offset(0, 1).Select End If next end sub
EXCEL VBAの　OLEObjectについて

EXCELでVBAを組んである処理をしているのですが、 EXCELのワークシート上にコントロールツールの OptionButtonをいくつか配置してあり、チェックのあるものを VBAのテーブルに入れて処理しようとしていますが、 ”実行時エラー1004　WorkSheetクラスのOLEObjectプロパティを取得できません。” というエラーが出てしまいます。 OLEObjectを使うのが初めてなので、初歩的なミスじゃないかと思います VBAの記述は以下のとおりです Sheets(ReferSheet).Select For i = 1 To 12 If Sheets(ReferSheet).OLEObjects("OptionButton" & i).Object.Value = True Then OpBt(i) = 1 End If Next どうかご指導お願いいたします。
エクセルVBAで困っています。

　エクセルでSheet1でSheet2に各銀行の出納帳を作りそこから各項目ごとに別Sheetに振り分けたいと思っています。　ある方にエクセルVBAで作って頂いたのですが、最初作って頂いた時の項目は会費、会議費、事務費の３つでした。その項目を９つに増やしたいと思っています。又、全てのSheetで１行目には銀行名や項目名を入れたいので２行目から日付、内容・・・といったように入力したいです。そうした場合、どこをどう変更したらよいのか分かりません。自分がわかる範囲で（適当ですが）挑んでみたのですが、私自体VBAについて全く無知のため何が何だかサッパリです。どなたか教えて頂くことはできないでしょうか。ちなみに文字数に制限があったため改行やスペースなどは入れていません。見難いとは思いますがよろしくお願いします。どうか皆様のお知恵を貸して頂けると幸いです。 Option Explicit Sub Teller() '【考え方】Sheet1とSheet2を入力と考える。 'マクロを実行したときに、Sheet1,2を元に、項目別に振り分ける。 Const BankName1 As String = "○銀行" Const BankName2 As String = "(チェック)銀行" Const tempSheet As String = "一時シート" Dim classify(9) As String Dim title(5) As String Dim i As Long Dim j As Long Dim lastRow1 As Long Dim lastRow2 As Long Dim findUpper As Long Dim findLower As Long Dim keyword As String Dim ws As Worksheet Dim Bank1 As Worksheet Dim Bank2 As Worksheet Dim Temp As Worksheet Set Bank1 = Worksheets(BankName1) Set Bank2 = Worksheets(BankName2) '【振り分ける項目名】 classify(1) = "会費" classify(2) = "会議費" classify(3) = "事務費" classify(4) = "事業費" classify(5) = "研修費" classify(6) = "報償費" classify(7) = "慶弔費" classify(8) = "予備費" classify(9) = "積立金" '【1行目に記載する見出し】 title(1) = "日付" title(2) = "内容" title(3) = "収入" title(4) = "支出" title(5) = "残高" '画面更新を停止 Application.ScreenUpdating = False '最終行取得 Bank1.Select lastRow1 = Cells(Rows.Count, 1).End(xlUp).Row Bank2.Select lastRow2 = Cells(Rows.Count, 1).End(xlUp).Row 'シートを作る For i = 1 To 3 Call MakeNewSheet_As_ThisName(classify(i)) For j = 1 To 5 Cells(1, j) = title(j) Next j Next i Call MakeNewSheet_As_ThisName(tempSheet) Cells.ClearContents Set Temp = Worksheets(tempSheet) '一時シートに、銀行1のデータと銀行2のデータをコピーする。 Bank1.Select Bank1.Range(Cells(3, 1), Cells(lastRow1, 5)).Copy Temp.Select Temp.Range(Cells(1, 1), Cells(lastRow1 - 2, 5)).PasteSpecial Bank2.Select Range(Cells(3, 1), Cells(lastRow2, 5)).Copy Temp.Select Cells(lastRow1 - 1, 1).PasteSpecial 'ソートする。 '第一優先キー：B列。[項目]昇順。 '第二優先キー：A列。[日付]昇順。 Range("A1:E" & (lastRow1 + lastRow2 - 4)).Select With ActiveWorkbook.Worksheets(tempSheet).Sort .SortFields.Clear .SortFields.Add Key:=Range("B1:B" & (lastRow1 + lastRow2 - 4)), Order:=xlAscending '第一キー .SortFields.Add Key:=Range("A1:A" & (lastRow1 + lastRow2 - 4)), Order:=xlAscending '第二キー .SetRange Range("A1:E" & (lastRow1 + lastRow2 - 4)) .Apply End With For i = 1 To 3 keyword = classify(i) findUpper = 0 findLower = 0 '上から探す For j = 1 To lastRow1 + lastRow2 - 4 Step 1 If Cells(j, 2) = keyword Then findUpper = j Exit For End If Next j If findUpper > 0 Then '下から探す For j = lastRow1 + lastRow2 - 4 To 1 Step -1 If Cells(j, 2) = keyword Then findLower = j Exit For End If Next j 'コピー Range(Cells(findUpper, 1), Cells(findLower, 5)).Copy Sheets(keyword).Select Range("A2").Select ActiveSheet.Paste Range("B2:B" & 2 + (findLower - findUpper)).Delete Shift:=xlToLeft Sheets(tempSheet).Select End If Next i '一時シートの削除 Application.DisplayAlerts = False Temp.Delete Application.DisplayAlerts = True 'アクティブセルをA1にしておく For Each ws In Worksheets Sheets(ws.Name).Select 'シート選択 Application.CutCopyMode = False Range("A1").Select Next ws Bank1.Select '画面更新を行う Application.ScreenUpdating = True MsgBox "実行しました" End Sub Sub MakeNewSheet_As_ThisName(ByVal GivenName As String) 'シートの有無を確認し、無ければ作る Dim exist_flag As Boolean Dim ws As Worksheet exist_flag = False For Each ws In Worksheets If UCase(ws.Name) = UCase(GivenName) Then 'シートが存在する場合 exist_flag = True Exit For End If Next ws 'シートを作成 If GivenName = "" Then MsgBox "空白名のシートは作れません。" ElseIf exist_flag = False Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = GivenName End If Sheets(GivenName).Select 'シート選択 End Sub
エクセルVBAの配列について

エクセルVBAの配列について VBAをはじめたばかりの初心者です。現在、下記のようにデータを配列の中に入れ、別シートに書き出そうとしております。（配列へ読み込むところのみ） Dim 配列(1 To 件数, 1 To 9) As Variant For j =1 To 件数 For i = 2 To L If Cells(i, 2).Value = Tx_month Then For k = 3 To 11 配列(j, k - 2) = Cells(i, k).Value Next k End If Next j,i 現状では、データの最終行のみを「件数」分書き出してしまいます。ｊとｉのForが重なっているからだと思うのですが、どう書き直したら良いか分かりません。質問をさせていただくのも初めてなので、分かりづらく恐縮ですがお力添え頂けますと幸いです。どうぞ宜しくお願い致します。
エクセルＶＢＡ－カウンター i と　j の使い方

2つの条件を同時に満たすと図形を別のワークシートにコピーし、６００行程度あるワークシートなので For - Next を使ってその作業を繰り返す、というエクセルのマクロを以下のように書き込みました。ところがマクロを実行すると、一番最初の行だけ正確に実行され、次に条件を満たす行があっても図形がコピーされません。（ということはカウンター i, j の使い方が間違っているのです）どなたか私の素人コードを見て修正方法を教えてください。お願いします。 Sub finalize() Dim MyStr As String Dim i As Long Dim j As Long 　For j = 2 To 1482 Step 40 For i = 3 To 188 Step 5 MyStr = Range("O" & i) If MyStr <> "" Then　　　　　　　　　　　　　　　　　　　　'条件１ If Range("L" & i).Value = "毎日" Then　　　　　　'条件２　　 Sheets("図形＿現読").Select ActiveSheet.Shapes.Range(Array("毎日")).Select Selection.Copy Sheets("印刷画面").Select Range("AG" & j).Select ActiveSheet.Paste Else If Range("L" & i).Value = "朝刊" Then Sheets("図形＿現読").Select ActiveSheet.Shapes.Range(Array("朝刊")).Select Selection.Copy Sheets("印刷画面").Select Range("AG" & j).Select ActiveSheet.Paste End If End If End If Next i Next j Ｅnd Sub
Excel VBA の if elseについて

　以下は与えられた自然数が素数であるかどうかを判定する、Excel VBA による素朴なコードです。　自然数が2 とそれ以上の場合で処理を分けていますが、5 行目のelseで　　対応するifがないというというコンパイルエラーが出ます。私はプログラミング言語は、Pascal しか経験がなく、Pascal の場合 5 行目の else から後の処理したい複数の構文を begin end で囲めば問題なく動きます。　Excel VBA で同じ処理をさせるにはどうしたらいいのでしょうか？　Worksheets("素数").Activate　　'"素数"シートをアクティブにする　Flg = 0 　Target = Range("D5").Value 　if Target = 2 then MsgBox ("2 は素数です。") 　else　 'else 対応するifがないというエラーが出る　'begin ・・・・・ Pascalの場合　　 K = Int(Target / 2) 　　 ' 2 以外の素数は奇数なので偶数で割ることを確認する必要はない。　　 For I = 3 To K Step 2 　　　　If Target Mod I = 0 Then 　　　　　Flg = 1 　　　　　Exit For 　　　 End If 　　 Next I 　　　　 Snum = Format(Target) 　　 If Flg = 0 Then 　　　　MsgBox (Snum + " は素数です。") 　　 Else 　　　　MsgBox (Snum + " は素数ではありません。") 　　 End If 　'end ・・・・・ Pascalの場合　End If
エクセルVBAにて教えて下さい。

WindowsMeエクセル2000を使用しています。業務で使用していのですが、自分には知識が無く困っています。どなたか分かるかた教えて下さい。宜しくお願い致します。エクセルで下記のようなデータが有ります。Ａ列　Ｂ列１　　東京２　　大阪１　　千葉下のコマンド実行ではＡ列で（1）が重複したので、後ろの業（千葉）を残し前の業（東京）を削除します。結果Ａ列　Ｂ列２　　大阪１　　千葉これを逆に東京を残し、千葉を削除したいのですが、Ａ列　Ｂ列１　　東京２　　大阪どのようにすれば良いのでしょうか？ Sub CommandButton2_Click() Dim key As String Dim RCnt As Long Dim i As Long key = "A1" Worksheets("sheet1").Activate ActiveSheet.Range(key).Select Selection.Sort key1:=Range(key), order1:=xlAscending RCnt = ActiveSheet.Range(key).CurrentRegion.Rows.Count For i = 1 To RCnt With ActiveCell If .Value = .Offset(1, 0).Value Then Selection.EntireRow.Delete Else .Offset(1, 0).Select End If End With Next i End Sub
エクセル2007のVBAについて

ＶＢＡ初心者ですが、よろしくお願いします。エクセルで入力したいシートタブを右クリック、コードの表示で、ＶＢＡに以下のスクリプトを入力しました。ネットに紹介されていたスクリプトに自分で一部書き足したものです。Ｕ列に値が入っていれば、その行のＴ列をダブルクリックするとチェックマークがつくようにし、それをＵ列の最終行までループしたいのですが、エラーなどはなくチェックマークが出現しません。どこが間違っているのでしょうか？ご教授お願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MaxRow = Range("U65536").End(xlUp).Row For i = 1 To MaxRow Step 1 If Range("U" & i) <> Null Then If Intersect(Target, Range("T" & i)) Is Nothing = False Then Cancel = True If Target.Value = ChrW(10003) Then Target.ClearContents Else Target.Value = ChrW(10003) End If End If End If Next i End Sub
EXCEL VBAを使用していて・・・

EXCEL97でVBAを使用していろいろと作っていたのですが、ある時点から突然、画面上に部品を追加しようとしたり、関数を追加しようとする（例えば、End Subの後ろでEnterキーを押す）と、EXCELがアプリケーションエラーを起こしてしまいます。関数の中で処理行を追加する分には問題はありません。何が問題なのかお解りになる方がおられましたらご回答をお願いします。（参考）・エラーメッセージ　"0x6516841f"の命令が"0x22c7c00b"のメモリを参照しました。　メモリが"read"になることはできませんでした。　アプリケーションを終了するには[OK]をクリックして下さい。　アプリケーションをデバッグするには[キャンセル]をクリックして下さい・ＯＳ　WindowsNT4.0 Workstation
エクセルＶＢＡで。

お世話になります。ＶＢＡ初心者です。（初心者でもないのですが、しばらく遠ざかっていました。）エクセルＶＢＡの記述内容をコピーし、エクセルの通常のシートへ貼り付けした際、記述上「’」で始まる文字は緑色が付いていますが、通常のシートへ貼り付けした際、黒字になってしまいます。そこで、下記の様なＶＢＡを記述し、貼り付け後に、「’」から始まる文字を緑色に着色しようと試みましたが（やはり）うまくいきませんでした。エクセル関数なんかも織り交ぜたおかしな記述だと思いますが何となくやりたい事が伝わって頂けるかと思うのですが、どう修正したら出来ますでしょうか。ご教授下さいます様、宜しくお願いいたします。　　記 Sub 色() Dim y As Integer Dim x As Integer Dim a As Integer mysheet = ActiveSheet.Name For y = 1 To 10 x = Sheets(mysheet).Cells(Rows.Count, y).End(xlUp).Row a = 0 Do Until a > x a = a + 1 If Right(Cells(y, a), 1) = "'" Then Cells(y, a).Select Selection.Font.ColorIndex = 10 End If Loop Next End Sub
エクセルのVBAでFor文がわかりません。

エクセルのＶＢＡでFor文をもちいてつぎのようなプログラムを作りたいと思っています。まずSheet1に一行目に時刻の一日のデータが1時間ごとにあり一時から24時までいかのようにあります。 1:00　2:00　3:00　・・・　24:00 二行目にその時刻におけるあるあたいが出力されます。　４　　６　　４　・・・　５三行目はまた時刻で四行目は同様にそのときのある値が出力されています。このような感じで31日分あります。この一行目と二行目をコピーしてSheet2に行列を入れ替えて貼付という作業を31回くりかえしたいのです。 ↓下にこんな感じで作りたいという形を作ったのですがどこかがおかしいので動きません。修正とご指摘お願いいたします。 ------------------------ Sub Macro1() Dim x As Integer For x = 1 To 31 Sheet1.Range(Cells(2 * (x - 1) + 1, 1), Cells(2* (x - 1) + 4, 24)).Select Selection.Copy Sheets("Sheet2").Select Cells(24 * (x - 1) + 1, 1).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=True Next x End Sub --------------------
エクセル　VBAについて

はじめて質問するのですが（閲覧もほとんどしていませんでした）、ネチケット違反等がありましたら申し訳ありません。エクセルＶＢＡで下記のようなことをしたいのですが、できずに困っています。Ａ列で文字が入っているセルを、上から下まで確認し、『在庫』という文字が入ってるセルの下２行に空白行を入れたく思っています。とりあえず自分で作ってみたのは、＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub 行挿入() Dim i As Integer Dim a As String For i = 1 To 1000 Cells(1, i).Value = a If a = "在庫" Then Rows(i + 1).Insert Rows(i + 2).Insert Else End If Next i End Sub ************************************ 初心者で申し訳ないのですが、上記を実行すると、アプリケーション定義＆オブジェクト定義というエラーが出ます。何がいけないのでしょうか？恐れ入りますが、教えてください。よろしくお願い致します。
VBAマクロの記述を教えてください　m(__)m　娘から聞かれたのですが主婦の私にはわかりません

VBAマクロの宿題です。どうもエクセルのことのようですが、それ以上は私にはわからず困っています。　　 A　　B　　 C　　 D　　 E　１　 ○　 ×　 ○　 ×　 ○ ２　　５　　５３　１２　１２４　　８　　８５　１５　１５６　３１　３１７　　４　　４８　　３　　３９　８７　８７ 10 　１８　１８ 11　１８３　８７以上がエクセルのシートだと見てください。準備：A1セルからE1セルに○あるいは×を入力する。　　　A2セルからE10のセルに適当な２桁の数値を入力する。問題：１行目が○なら11行目に２行目から10行目までの　　　合計を計算・表示する。　　　１行目が×なら11行目に２行目から10行目までの　　　最大値を表示する。ヒント：文字のIF文　　　　　プログラム上で文字を扱う場合、ダブル・クォーテー　　　　　ションで文字をはさむ。　　　　　IF　Cells（　、　）＝"○" Then 　　　　プログラムの流れ |　　　　For |　　　　　　　IF |　　　　　　　　　For |　　　　　　　　　Next |　　　　　　　Else |　　　　　　　　　For |　　　　　　　　　Next |　　　　　　　END IF |　　　　　Next 以上です。もう何が何やらちんぷんかんぷんです。どなたか助けてください。

エクセルＶＢＡでＥＮＤ命令を自動で出したいのですが

質問者が選んだベストアンサー

お礼 2008/08/06 11:38

関連するQ&A

エクセル　VBA　Rowsプロパティ？

EXCEL VBA

エクセルVBAについての質問です。

EXCEL VBAについて

エクセルVBAについて

Excel VBAの「FOR～NEXT関数」について

vba

エクセルxpのVBA

EXCEL VBAの　OLEObjectについて

エクセルVBAで困っています。

エクセルVBAの配列について

エクセルＶＢＡ－カウンター i と　j の使い方

Excel VBA の if elseについて

エクセルVBAにて教えて下さい。

エクセル2007のVBAについて

EXCEL VBAを使用していて・・・

エクセルＶＢＡで。

エクセルのVBAでFor文がわかりません。

エクセル　VBAについて

VBAマクロの記述を教えてください　m(__)m　娘から聞かれたのですが主婦の私にはわかりません

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセルＶＢＡでＥＮＤ命令を自動で出したいのですが

質問者が選んだベストアンサー

お礼 2008/08/06 11:38

関連するQ&A

エクセル VBA Rowsプロパティ？

EXCEL VBA

エクセルVBAについての質問です。

EXCEL VBAについて

エクセルVBAについて

Excel VBAの「FOR～NEXT関数」について

vba

エクセルxpのVBA

EXCEL VBAの OLEObjectについて

エクセルVBAで困っています。

エクセルVBAの配列について

エクセルＶＢＡ－カウンター i と j の使い方

Excel VBA の if elseについて

エクセルVBAにて教えて下さい。

エクセル2007のVBAについて

EXCEL VBAを使用していて・・・

エクセルＶＢＡで。

エクセルのVBAでFor文がわかりません。

エクセル VBAについて

VBAマクロの記述を教えてください m(__)m 娘から聞かれたのですが主婦の私にはわかりません

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　VBA　Rowsプロパティ？

vba 　

EXCEL VBAの　OLEObjectについて

エクセルＶＢＡ－カウンター i と　j の使い方

エクセル　VBAについて

VBAマクロの記述を教えてください　m(__)m　娘から聞かれたのですが主婦の私にはわかりません

カテゴリ
一覧

専門家に質問してみよう
専門家登録