（少数点、第三位で切り捨て）をしたいんですが、このマクロに何を足せばいいですか？？| OKWAVE

（少数点、第三位から切り捨て）をこのマクロにどう入力すればいいですか？？

四捨五入を切捨て（第三位）するにはどうしたらいいのでしょうか？？ＶＢＡをちゃんと理解できていないので、誰か分かる人助けてください！！ついでにＲＯＵＮＤＤＯＷＮとかの関数はＶＢＡに入力するコードとしては、まったく別物なんでしょうか？？初心者が生意気言ってすいません・・・。 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Range(Target.Address).Column = 2 And _ Range(Target.Address).Row >= 5 And _ Range(Target.Address).Row <= 10 Then Range(Target.Address).Value = _ Range(Target.Address).Value / 19 End If Application.EnableEvents = True End Sub よろしくおねがいします・・。カテゴリー間違えて入れなおしました。すみません・・。

このマクロあっていますでしょうか？よろしくお願いいたします。

★sheetＡ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$14" And Target.Address <> "$C$19" _ And Target.Address <> "$F$19" Then Exit Sub If Target.Address <> "$R$14" And Target.Address <> "$S$14" _ And Target.Address <> "$T$19" Then Exit Sub Application.EnableEvents = False With Sheets("Ｂ") .Range("F14").Value = Range("C14").Value .Range("F17").Value = Range("C19").Value .Range("F20").Value = Range("F14").Value .Range("F23").Value = Range("F19").Value End With With Sheets("Ｃ") .Range("F13").Value = Range("R14").Value .Range("F14").Value = Range("S14").Value .Range("F18").Value = Range("T19").Value End With Application.EnableEvents = True End Sub ★sheetＢ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$F$14" And Target.Address <> "$F$17" _ And Target.Address <> "$F$23" Then Exit Sub Application.EnableEvents = False With Sheets("Ａ") .Range("C14").Value = Range("F14").Value .Range("C19").Value = Range("F17").Value .Range("F19").Value = Range("F23").Value End With Application.EnableEvents = True End Sub ★sheetＣ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$F$13" And Target.Address <> "$F$14" _ And Target.Address <> "$F$18" Then Exit Sub Application.EnableEvents = False With Sheets("Ａ") .Range("R14").Value = Range("F13").Value .Range("S14").Value = Range("F14").Value .Range("T19").Value = Range("F18").Value End With Application.EnableEvents = True End Sub

２つのVBAを組み合わせる方法

お世話になります、２つのVBAを組み合わせる方法で迷っています。１つ目が Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, k As Long, myNum As Long If Intersect(Target, Range("C1,B9:B39")) Is Nothing Or Target.Count > 1 Then Exit Sub Application.EnableEvents = False With Target If .Column = 3 Then myNum = WorksheetFunction.Max(Range("B9:B39")) If IsDate(.Value) Then For i = 9 To 39 If Cells(i, "A").Value = "" Then Cells(i, "B").Value = "" Else Cells(i, "B") = myNum + i - 8 End If Next i End If Else i = .Row If .Value = "" Then Range(Cells(i + 1, "B"), Cells(39, "B")).ClearContents Else For k = i + 1 To 39 If Cells(k, "A").Value = "" Then Cells(k, "B").Value = "" Else Cells(k, "B") = Cells(k - 1, "B") + 1 End If Next k End If End If End With Application.EnableEvents = True End Sub です。２つめが Private Sub Worksheet_Change(ByVal Target As Range)　 Application.EnableEvents = True If Intersect(Target, Range("R8:R38")) Is Nothing Then Exit Sub Application.EnableEvents = False Range(Cells(Target.Row, 18), Cells(39, 18)).Value = Target.Value Application.EnableEvents = True End Sub です。２つのPrivate Sub Worksheet_Change(ByVal Target As Range)イベントのVBAですが、どのようにして組み合わせれば良いのでしょうか？

エクセル　マクロ　初心者です

エクセルマクロ初心者です。以下の２つの Private Sub Worksheet_Change(ByVal Target As Range)を１つのシートで実行させたいのですが、当方、初心者なので組み合わせ方が分かりません。よろしくお願いします。 ===No1=== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target = StrConv(Target, vbUpperCase) Application.EnableEvents = True End Sub ===No2=== Private Sub Worksheet_Change(ByVal Target As Range) Dim Ans As Integer If Target.Count = 1 Then Ans = MsgBox("コピーは禁止!!", vbCritical) MsgBox "データを消去します。" With Application .EnableEvents = False .Undo .EnableEvents = True End With End If If Target.Count = 1 Then Exit Sub Else MsgBox “複数セルのコピー禁止！" With Application .EnableEvents = False .Undo .EnableEvents = True End With End If End Sub ------------ 上記の２つを１つのシートで動作させたいのですが、うまくいきません。単体では、動作します。

エクセル　ＶＢＡマクロ if文　はどうすれば？

先ほど質問したのですが、さらにわからなくなったのでお願いします先ほどの質問～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ http://okwave.jp/qa/q7236338.html >変数と式の両立は難しいでしょうからどうすればよいのでしょう？　⇒関数では出来無いのはエクセルの常識ですのでマクロ（ＶＢＡ）組込みになります。一例です。対象シートタブ上で右クリック→コードの表示→以下のコード貼り付けてA1に枚数を入力してお試しください。サンプルコード Private Sub Worksheet_Change(ByVal Target As Range) 単価 = 5 If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 0 Then 　Application.EnableEvents = False 　Target.Value = Target.Value * 単価　Application.EnableEvents = True End If End Sub ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ ↓変更＆応用したのですが、、、、ＥＸ：（セル）　　　セル番号　　用紙種類１～３　　　　　　　用紙種類　　　C12　　　Ａ３モノクロ１　　　　　D12　　Ａ３カラー１　　　C13　　　Ａ３モノクロ２　　　　　D13　　Ａ３カラー２　　　C14　　　Ａ３モノクロ３　　　　　D14　　Ａ３カラー３ ※金額の違いは、モノクロとカラーの値段が違うだけ　１～３は金額的な違いはないとあった場合、ためしに先ほどのを応用して用いたのですが変更点は、用紙サイズ、カラーの有無による金額　　　　　　　出力先セルの番号 Private Sub Worksheet_Change(ByVal Target As Range) を Private Sub A4_mono_1(ByVal Target As Range) Private Sub A4_mono_2(ByVal Target As Range) ・　　　　　　　　　　　　・　　　　　　　　　　　・と変更したのですがうまく動作しなかったのですが、どういった点が悪かったのでしょうか？～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～最終的な質問↓ 上記のものはＶＢＡマクロ文は基本１つのみなので、if文で作らなくてはいけないということが分かったのですが、そこでさらに疑問が浮かびました、 Private Sub Worksheet_Change(ByVal Target As Range) If or(target.columns = C12:C14) Then 単価1 = 7.6 If Intersect(Target, Range("C12:C14")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 0 Then Application.EnableEvents = False Target.Value = Target.Value * 単価1 Application.EnableEvents = True単価1 = 7.6 elseif or(target.columns = D12:D14) Then 単価2 = 30.6 If Intersect(Target, Range("D12:D14")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 0 Then Application.EnableEvents = False Target.Value = Target.Value * 単価2 Application.EnableEvents = True End If End Sub としたっ場合全く式になっていませんどのようにすればよいのでしょう？

マクロの行不足対処法を教えてください。

現在下記の様なコードを作成しています。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$F$13" And Target.Address <> "$F$14" _ And Target.Address <> "$F$15" _ And Target.Address <> "$F$16" _ And Target.Address <> "$F$17" _ And Target.Address <> "$F$18" Then Exit Sub Application.EnableEvents = False With Sheets("部材表") .Range("R14").Value = Range("F13").Value .Range("S14").Value = Range("F14").Value .Range("T14").Value = Range("F15").Value .Range("R19").Value = Range("F16").Value .Range("S19").Value = Range("F17").Value .Range("T19").Value = Range("F18").Value End With Application.EnableEvents = True End Sub このコードの And Target.Address <> "$F$16" _ 部分と .Range("R19").Value = Range("F16").Value 部分を増やしていくと、行継続文字 () の使いすぎとの事で、ヘルプに下記の文章があります行継続文字で継続されている行が、25 行を超えているか、または 1 つの論理行に 24 を超える行継続文字があります。いくつかの行を物理的に長くして必要な行継続文字数を減らすか、複数のステートメントに分割します。どの様に対処したらよろしいでしょうか？

VBA初心者です

VBA初心者です。同じセルに数字を入れて足し算して行きたいんですが！下記のVBA見つけたのですが、A1に数字を入れて答えがE1に出るんですが、同じ事を A2、A3、A4、A5答えもE2、E3......で増やしたいのですが、どうするか分かりません。どなたか教えてください。宜しくお願いします。 Private Sub Worksheet_Change(ByVal Target As Range) Dim inp, outp As String inp = "$A$1" outp = "E1" Application.EnableEvents = False If Target.Address = inp Then Range(outp).Value = Range(outp).Value + Target.Value If Target.Value <> "" Then ActiveCell.Offset(-1, 0).Select Else Range(outp).Value = 0 End If End If Application.EnableEvents = True End Sub

WorkSheet_Changeを2つ反映させる

　下記のコードをWorkSheetで2つ反映させるにはどうしたらいいでしょうか？どちらか一つなら反映するのはわかりますが、どう名前を変更すればいいのかお教え願えませんでしょうか？ windows7・SP1 Office2010 Private Sub WorkSheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub '検査範囲 Application.EnableEvents = False '再帰実行の停止 If Range("C1").Value <> Sheets("祝祭日").Range("A1").Value Then MsgBox ("祝日の設定を反映するため年度を同じにしてください。") End If Application.EnableEvents = True End Sub Private Sub WorkSheet_Change(ByVal Target As Range) Dim MyRow As Long Dim MyCol As Integer MyRow = Target.Row MyCol = Target.Column With Worksheets("メイン・1").Select If MyRow = 1 And MyCol = 7 Then If Target = 4 Then 'または　If Target = 1 Then メインデータの復元 '動かしたいマクロ名 End If End If End With End Sub

エクセル　加算　

１つのセルに数字を入力すると加算されているマクロを探していたら以下の回答がありました Dim memo Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value <> "**" And IsNumeric(Target.Value) = False Then Exit Sub Application.EnableEvents = False If Target.Value = "**" Then memo = 0 Else memo = memo + Target.Value End If Target.Value = memo Application.EnableEvents = True End Sub このマクロですがＡ１に入力した場合に適用しますが、このマクロをたとえばＡ１からＣ１の範囲で使用した１場合にどのようなマクロをすればよいかわかりませんそれか、このマクロではそのようなことができるのかもわかりませんので教えて頂けないでしょうか

エクセルのマクロコードについて

お世話になります。下記コードで、セルごとにクリアをすると、エラーなくうごくのですが、セルをまとめてセルを消すと実行時エラー13型が一致しません。とでてIf Target.Value = "" Thenがだめだよとでてしまいます。どなたか、回避の方法をご教授ください。宜しくお願いいたします。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B2:E2,G2:J2")) Is Nothing Then Exit Sub If Target.Value = "" Then Exit Sub x = Target.Value With Application .ScreenUpdating = False .EnableEvents = False .Undo 'Range("B2").Value = x + Z Z = Target.Offset(1, 0).Value y = Target.Value Target.Value = x + y .EnableEvents = True .ScreenUpdating = True End With Target.Offset(1, 0).Value = x + Z End Sub

エクセルのマクロコードに付いて教えて下さい。

下記のマクロコードがありますが、 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub x = Target.Value With Application .ScreenUpdating = False .EnableEvents = False .Undo y = Target.Value Target.Value = x + y .EnableEvents = True .ScreenUpdating = True End With End Sub セル位置の指定を変更する場合は、どの様に書けば良いのですか？このコードですと、セルＡ1の入力指定でなっていますがＡ1～Ａ5までとか。Ａ1、Ｂ1，Ｃ1とかにする場合はどの様に書けば良いか教えて下さい。マクロに付いて、殆ど知識が無いものですので出来れば、分かり易い説明でお願いします。宜しくお願いします。

再質問　長いＩＦ文を短くしたい

お世話になっております先日1/24に、条件を示さずに「長いＩＦ文を短くしたい」という質問をしてしまいましたこちらの手抜きをお詫びします前回keithinさんにアドバイスいただいた方法で書き直しましたのでこれをさらに簡単に書く方法があれば教えてください以下は、Private Sub Worksheet_Change(ByVal Target As Range)内のマクロです If Target.Row >= 15 And Target.Row <= 100 And Target.Column = 9 Then If Range("I" & Target.Row).Value < Range("J" & Target.Row).Value Then If Range("G" & Target.Row).Value >= 1 Then If Range("I" & Target.Row).Value >= Range("G" & Target.Row).Value Then If Range("I" & Target.Row).Value Mod Range("G" & Target.Row).Value = 0 Then 　処理 End If End If End If End If End If

VBAエラー「スタック領域が不足しています」

C2とD2のセルに英文字を入力した時，先頭文字を大文字にするVBAを組んだのですが，いざ実行すると「スタック領域が不足しています」と出てしまいます。以下にコードを示します。 'Sheet1 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 　　If Target.Row = 2 And Target.Column = 3 Then 　　　　Range("C2").Value = StrConv(Range("C2").Value, vbProperCase) 　　End If 　　If Target.Row = 2 And Target.Column = 4 Then 　　　　Range("D2").Value = StrConv(Range("D2").Value, vbProperCase) 　　End If End Sub なぜこのようなエラーが出るのでしょうか。考えれば考えるほど合っているように思えて仕方なくなったので，ミスがあればご指摘をおねがいします。

このマクロの説明をお願いします

Dim buf As String Private Sub CommandButton1_Click() End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim tmp As Variant Application.EnableEvents = False tmp = InStr(2, buf, "$", vbTextCompare) tmp = Right(buf, Len(buf) - tmp) If buf = "$B$" & tmp Then Range("C" & tmp).Value = Range("C" & tmp).Value + Range("B" & tmp).Value Range(buf).Select End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As　Excel.Range) buf = ActiveCell.Address End Sub どうやらB列の各セルに入力がされた場合、隣接するC列のセルに加算していくマクロのようです。なんですが、 InStr関数、Right関数、Len関数あたりでやっていることがよくわかりません。 Private Sub CommandButton1_Click()は必要なのでしょうか？あと、もっとシンプルなマクロができるようでしたらご教授ねがいます。

[VBAマクロ] Private Sub

以下のコードは、ある任意のテーブルの最終行に何か入力すると自動的に新しい行を追加します。（例えば、TotalVal をセルR5に名前定義して、4行目に何か入力するとマクロが走って5行目に新規の行が挿入されます。）新規の行を入力するだけでなく、直前行の計算式とフォーマット形式もコピーして行の挿入をするにはどうしたらよいか、どなたかご教示していただけませんでしょうか。よろしくお願います。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = [TotalVal].Row - 1 Then Application.EnableEvents = False [TotalVal].EntireRow.Insert Application.EnableEvents = True End If End Sub

同一セル内に計算結果を入れたいんですが、教えて下さい。

初心者で面倒かけます・・・。同一セル内に計算結果（割り算）を入力したいのですが、消費税を求めるマクロを見つけて、編集（掛け算を割り算にしただけ・・・・）したのですが、少数点以下が消えてしまいます。書式のユーザー設定を変えても少数点以下は「０」表示になってしまいます。 ↓↓見つけたマクロ↓↓（１９で割る計算に変えてあります。） Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Range(Target.Address).Column = 1 Then Range(Target.Address).Value = _ Int(Range(Target.Address).Value / 19) End If Application.EnableEvents = True End Sub ちゃんと理解していないのにマクロに手だしてスミマセン。。ヨロシクおねがいします。

２つのマクロを挿入すると動作せず

現在、C10に値が入力されるとG4に発行日が表示される下記のマクロを入力しています。１　発行日の日付 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then Target.Offset(-6, 2).Value = Date End If End Sub この上のマクロのみは上手く作動しています。ファイル名を自動で保存するために下記のマクロをしたいので追加しました。２　ファイル名の自動保存　　 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If End Sub ３　　上記の１＋２で下記の如くし、いろいろトライをしていますが上手くゆきません。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If If Target.Address = "$C$10" Then Target.Offset(-6, 2).Value = Date End If End Sub ブック内は次のようなファイルです。 Sheet１(納品請求書１)～Sheet３(納品請求書３) Sheet４(月請求書) Sheet５(顧客登録) Sheet６(設定) Sheet７(領収書) Sheet８(file)　　ここのA1に保存したいファイル名を入れています。上手く表示されません。　困っています。ここでご教授いただきたいのは２のみのマクロだと問題なく「ファイル名とシート名」が自動的に表示され保存ができます。私のやり方に何か問題があると思います。上記の１(発行日の日付け)＋２(ファイル名の自動保存)したときにはうまくいかず何かいい方法がないでしょうか。お知恵をお貸し下さい。

excel2007 VBで

下記のマクロ作成して実際にセルにＡ、あるいは何かデータを入力しても下記イベント？が発生している気配がありません。 Application.EnableEvents = Falseの行がなにか問題なのでしょうか。実プログラムは If Target.Value = "Ａ" Or Target.Value = "A" Thenの他にＢ、Ｃ、計算も含んでいるのですがApplication.EnableEvents = TrueはEnd Subの前行に入れてあります。他に設定することがあるのでしょうか。どなたか教えてください。 Private Sub Worksheet_Change(ByVal Target As Range) 　　　If Target.Count > 1 Then Exit Sub '複数セルの入力は無視 Application.EnableEvents = False '割込み停止 ’[B3] = 123 ’Stop If Target.Value = "Ａ" Or Target.Value = "A" Then Target.Value = "A" End If Application.EnableEvents = True '割込み再開 End Sub excel2007　ＶＢ６．５です。

ドラッグした際のエラー回避

以下のようなVBAを組んだのですが、オートフィルタでV列をリストのいずれかを選択中にドラッグすると「型が一致しません」というエラーを起こします。最悪、オートフィルタ中はドラッグ不可でもかまいません。ご教授ください。（WiｎXp/Access2003) Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) '列の色変更 Dim myColor As Variant Dim myFontColor As Variant If Target.Column = 1 Then GoTo S If Target.Column = 9 Then GoTo K If Target.Column = 25 Then GoTo Y If Target.Column = 22 Then GoTo A If Selection.Cells.Count > 1 Then Exit Sub Exit Sub S: 'A列入力時 If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub Application.EnableEvents = False If Target.Value <> "" And Target.Offset(0, 4) = "" And Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = "TypeA" Target.Offset(0, 5) = "未" Target.Offset(0, 6) = Date Target.Offset(0, 1).Select End If Application.EnableEvents = True Exit Sub K: '故障入力時 If Not Intersect(Target, Range("K1:K10")) Is Nothing Then Exit Sub Application.EnableEvents = False If Target.Value = "Y" Then Target.Offset(0, 13) = "故障" Cells(Target.Row, 1).Resize(1, 28).Interior.ColorIndex = 7 Target.Offset(0, 1).Select Else End If Application.EnableEvents = True Exit Sub Y: 'Y列入力時 If Not Intersect(Target, Range("Y1:Y10")) Is Nothing Then Exit Sub Application.EnableEvents = False If Target.Value <> "" And Target.Offset(0, 1) = "" And Target.Offset(0, 2) = "" Then Target.Offset(0, -3) = "売却済" Target.Offset(0, 1) = Date Target.Offset(0, 2) = "未" Cells(Target.Row, 1).Resize(1, 28).Interior.ColorIndex = 16 Else End If Application.EnableEvents = True Exit Sub A: If Not Intersect(Target, Range("A1:AB10")) Is Nothing Then Exit Sub Application.EnableEvents = False Select Case Target.Value Case "故障" myColor = 7 'ピンク myFontColor = 1 Case "修理中" myColor = 37 '薄い水色 myFontColor = 1 Case "担当出(1)" myColor = 3 '赤 myFontColor = 1 Case "担当出(2)" myColor = 8 '水色 myFontColor = 1 Case "担当出(3)" myColor = 4 '蛍光緑 myFontColor = 1 Case "担当出(4)" myColor = 6 '黄色 myFontColor = 1 Case "担当出(5)" myColor = 5 '青 myFontColor = 1 Case "担当出(6)" myColor = 10 '深緑色 myFontColor = 1 Case "売却済" myColor = 16 '濃灰色 myFontColor = 1 Case "廃棄", "修理不可能" myColor = 47 '群青 myFontColor = 2 '白 Case "保守用" myColor = 49 '群青 myFontColor = 2 '白 Case Else myColor = xlNone End Select Cells(Target.Row, 1).Resize(1, 28).Interior.ColorIndex = myColor Cells(Target.Row, 1).Resize(1, 28).Font.ColorIndex = myFontColor Application.EnableEvents = True End Sub Private Sub AFall() If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If End Sub

select case文について

リストから選択とリストに無い値の入力のリストへの追加をしたく、あちこちの情報をつぎはぎで下記のようにVBAで動かそうとしましたが、うまく動いてくれません。前（Case A）は動くのですが、あと（Case 2）が機能しません。それと、3つ以上をSelectCaseで組む場合の方法も合わせてお願いします。 Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Dim LastR As Long Select Case Target.Address(0, 0) Application.EnableEvents = False Case "D1" With Worksheets("Sheet2") LastR = .Range("A36636").End(xlUp).Row Set c = .Range("A1:A" & LastR).Find( _ Target.Value, , xlValues, xlWhole, xlByColumns, xlPrevious, True) If c Is Nothing Then If vbNo = MsgBox("リストに追加しますか？", _ vbYesNo, "追加の確認") Then Application.EnableEvents = True Exit Sub End If .Range("A" & LastR + 1).Value = Target.Value .Range("A1:A" & LastR + 1).Name = "リストA" End If With Target.Validation .Delete .Add Type:=xlValidateList, Formula1:="=リストA" .ShowError = False End With Case "E1" With Worksheets("Sheet2") Set c = .Range("B1:B" & LastR).Find( _ Target.Value, , xlValues, xlWhole, xlByColumns, xlPrevious, True) If c Is Nothing Then If vbNo = MsgBox("リストに追加しますか？", _ vbYesNo, "追加の確認") Then Application.EnableEvents = True Exit Sub End If .Range("B" & LastR + 1).Value = Target.Value .Range("B1:B" & LastR + 1).Name = "リストB" End If End Select End With With Target.Validation .Delete .Add Type:=xlValidateList, Formula1:="=リストB" .ShowError = False End With Application.EnableEvents = True End Sub

（少数点、第三位で切り捨て）をしたいんですが、このマクロに何を足せばいいですか？？

みんなの回答

お礼 2009/02/28 11:45

関連するQ&A

（少数点、第三位から切り捨て）をこのマクロにどう入力すればいいですか？？

このマクロあっていますでしょうか？よろしくお願いいたします。

２つのVBAを組み合わせる方法

エクセル　マクロ　初心者です

エクセル　ＶＢＡマクロ if文　はどうすれば？

マクロの行不足対処法を教えてください。

VBA初心者です

WorkSheet_Changeを2つ反映させる

エクセル　加算

エクセルのマクロコードについて

エクセルのマクロコードに付いて教えて下さい。

再質問　長いＩＦ文を短くしたい

VBAエラー「スタック領域が不足しています」

このマクロの説明をお願いします

[VBAマクロ] Private Sub

同一セル内に計算結果を入れたいんですが、教えて下さい。

２つのマクロを挿入すると動作せず

excel2007 VBで

ドラッグした際のエラー回避

select case文について

注目のQ&A

カテゴリ
一覧

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

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

（少数点、第三位で切り捨て）をしたいんですが、このマクロに何を足せばいいですか？？

みんなの回答

お礼 2009/02/28 11:45

関連するQ&A

（少数点、第三位から切り捨て）をこのマクロにどう入力すればいいですか？？

このマクロあっていますでしょうか？よろしくお願いいたします。

２つのVBAを組み合わせる方法

エクセル マクロ 初心者です

エクセル ＶＢＡマクロ if文 はどうすれば？

マクロの行不足対処法を教えてください。

VBA初心者です

WorkSheet_Changeを2つ反映させる

エクセル 加算

エクセルのマクロコードについて

エクセルのマクロコードに付いて教えて下さい。

再質問 長いＩＦ文を短くしたい

VBAエラー「スタック領域が不足しています」

このマクロの説明をお願いします

[VBAマクロ] Private Sub

同一セル内に計算結果を入れたいんですが、教えて下さい。

２つのマクロを挿入すると動作せず

excel2007 VBで

ドラッグした際のエラー回避

select case文について

注目のQ&A

カテゴリ 一覧

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

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

エクセル　マクロ　初心者です

エクセル　ＶＢＡマクロ if文　はどうすれば？

エクセル　加算　

再質問　長いＩＦ文を短くしたい

カテゴリ
一覧

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