回答数
気になる
-
列と行の名前(重複あり)が交差するセルに、データを入力したい
同じ内容で何度も、まだ解決していないので、すみません。教えて下さい! 列と行の名前(同じ名前含む)が交差するセルに、データを入力したい。 1)表1、B列5行目以降の名前とD列2行目以降の列の名前が交差するセルに 表3、結果(やりたい結果)のように、日付と名前と数量のデータを入力したいので、 2)VBAプログラムを作成し実行するのですが、表2、結果となります。 【質問】 以下の①②が上手く行きませんので、どなたか教えて頂けないでしょうか! VBA初心者ですので、宜しくお願いします。 又は、他の手法のプログラムで良い方法が有りましたら、ご指導お願いします。 ① 行の名前が複数ある場合、すべての名前に入力したいが、1つの名前のみ入力となる。 (列の名前は1つの名前のみです。)行の同じ名前が交差するセルの記述方法を教えて下さい。 ② 行に名前(メロン)が有るのですが、列に名前が無い場合は、記入無しにしたいが、 入力してしまう。入力しない記述方法を教えて下さい。 ③実際のデータでは、行の名前等は5/31まで、列の名前も他に追加ありますが、 画像データは行/列とも、省略しています。 Sub Testクロス() Dim i, k, TgRow, TgCol As Long MaxRow = Cells(Rows.Count, 2).End(xlUp).Row '検索値最終行 MaxCol = Cells(2, Columns.Count).End(xlToLeft).Column 'シート「DATA」の最終列を取得 'データ削除 If MaxRow > 5 Then Range(Cells(6, "D"), Cells(MaxRow, MaxCol + 3)).ClearContents End If For Each k In Range("B6:B" & MaxRow) For i = 6 To MaxRow If Cells(i, 2) = k Then TgRow = i Exit For End If Next i For i = 4 To MaxCol If Cells(2, i) = k Then TgCol = i Exit For End If Next i Cells(TgRow, TgCol).Value = k.Offset(0, -1).Value Cells(TgRow, TgCol).Offset(0, 3).Value = k.Value Cells(TgRow, TgCol).Offset(0, 1).Value = k.Offset(0, 1).Value Next k End Sub
質問日時: 2022/06/25 22:42 質問者: sas339
ベストアンサー
2
0
-
vba シートコピーの不具合
ws_tdata.Select gyo = 3 gyo1 = 3 count = 1 mm = ws_tdata.Cells(gyo, 2).Value Do Until Cells(gyo, 2).Value = "" If mm = ws_tdata.Cells(gyo, 2).Value Then count = count + 1 Else ws_tdata.Select Cells(gyo1, 1).Resize(count - 1, 11).Select Selection.Copy Sheets(mm & " 月").Select ActiveSheet.Unprotect Sheets(mm & " 月").Select Sheets(mm & " 月").Cells(3, 1).Resize(count - 1, 11).Select Selection.PasteSpecial ← Application.CutCopyMode = False ActiveSheet.Protect count = 1 gyo1 = gyo End If ws_tdata.Select mm = ws_tdata.Cells(gyo, 2).Value gyo = gyo + 1 Loop ws_tdataのシート の Cells(gyo1, 1).Resize(count - 1, 11)を Sheets(mm & " 月") のシートの Cells(3, 1).Resize(count - 1, 11) へコピーしようとしているのですが ←の行でエラーとなってしまいます。アクティヴシートも明記していると思うのですが不適合箇所をご指摘お願いします。 よろしくお願いいたします。
質問日時: 2022/06/25 17:48 質問者: ナカカズ
ベストアンサー
1
0
-
ExcelのVBAコードについて教えて下さい。
作業ブックのシート名「受付」に If Range("D2").Value = "紙申請" Then Call 電図 Else Call 紙図 End If End Sub このコードはセル("D2")に"紙申請"が表示されたタイミングでマクロ名「電図」が実行され、"紙申請"以外ではマクロ名「紙図」が実行されます。 このコードに追加して、 セル("D2")に "車庫等:増築" "車庫等:増築+消防同意有" "車庫等:単独" の3つの内、いずれか一つが表示されたタイミングで マクロ名「保存」を実行するようにする方法を教えて下さい。 よろしくお願いいたします。
質問日時: 2022/06/25 14:04 質問者: エクセル小僧
ベストアンサー
2
0
-
複数ページあるPDFファイル内の文字列等の情報をキーにPDFをグループ分け分割したい。
1つのPDFファイルに顧客順(顧客によって1ページのものだったり数ページだったりしている)にページが分かれている請求書明細があるのですが、このPDFをファイル内に記載されている顧客番号や顧客名等の情報から、顧客毎にPDFファイルを分割する方法があれば、教えて頂きたいです。マクロやPythonで出来ないかなあと色々と調べたんですが、詳細な情報が載っているサイトがなかなか見つけられません。本件について何か分かる方、是非ともご教示願います。
質問日時: 2022/06/25 09:51 質問者: take_goma
解決済
2
0
-
エクセルvba シートを順次アクティブにするマクロ
Dim mm As Integer Dim ws_4 As Worksheet Dim ws_5 As Worksheet Dim ws_6 As Worksheet Set ws_4 = Worksheets("4 月") Set ws_5 = Worksheets("5 月") Set ws_6 = Worksheets("6 月") for mm=4 to 6 step 1 Sheets("ws_" & mm).Activate ← ActiveSheet.Unprotect next mm シート名 4 月,5 月,6 月を順次アクティブにするマクロにしたつもりですが ←行でインデックスが有効範囲外というエラーメッセージがでます。 なぜなんでしょうか。解決策はありませんか。 ご教授よろしくお願い致します。
質問日時: 2022/06/24 16:37 質問者: ナカカズ
ベストアンサー
3
0
-
コピーしたデータを表中で収まるように2列に分けて貼り付けする方法を教えてください。
画像のように、B列に書かれたデータをコピーし、D3:E6の表に収まるように 2列に分けて張り付ける方法はありませんか? B列に入力されているデータの最終行は変化することを前提にしていただきたいです。 a = Range("B2", Range("B").End(xlDown)) a.Copy Range("D4").PasteSpecial Paste:=xlPasteValues 現状では上記のコードでコピペしています。
質問日時: 2022/06/24 14:28 質問者: VBA初心者desu
ベストアンサー
8
1
-
3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数
3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数が少ない 結果1:3つの条件にあてはまる5行目夏みかんを重複するみかん行のA列へ転記したい。 結果2:3つの条件にあてはまる5行目夏みかんの行をVBAで削除したい。 VBAで行の削除をするため調べたら下記コードの事例がありました。 Dim MR As Long Dim MC As Long Dim DP As Long MR = Cells(Rows.Count, 1).End(xlUp).Row '最終行,A:A MC = Cells(1, Columns.Count).End(xlToLeft).Column '1:1,最終列 DP = 4 Range(Cells(1, 1), Cells(MR, MC)).Sort _ Key1:=Cells(1, DP), Order1:=xlAscending, _ Header:=xlYes Dim j As Long With Cells(2, DP) For j = .CurrentRegion.Rows.Count To 1 Step -1 If .Offset(j, 0) = .Offset(j - 1, 0) Then .Offset(j, 0).EntireRow.Delete Next j End With このコードでは4列目の重複しか見てくれません。 複数条件として5列目の重複と3列目の大小を付け加えるにはどのようなコード修正をしたらよろしいでしょうか? また結果1の削除する夏みかんのA列への転記はどのように追記したらよろしいでしょうか? お知恵を貸していただけると助かります。 よろしくお願いいたします。
質問日時: 2022/06/24 11:07 質問者: momo_2123
ベストアンサー
6
0
-
Excel vbaのプログラムでガンマ関数を実装する方法
(0.5)!とか、30!とかみたいに、ガンマ関数を実装する方法を教えてください
質問日時: 2022/06/23 22:48 質問者: nova3141592
解決済
3
0
-
エクセルVBA
文書作成ブックのセルS2に行番号を入力して,その行のデータを取得するマクロを作 成したいです。 例えば,A1のデータをU1へ取得したく,以下のようにしたのですが, 実行時エラー"1004"「"Range"メソッドは失敗しました:"_Global"オブジェクト」 が発生します。 解決策をご教授いただけますでしょうか。 Sub 取得() Workbooks.Open Filename:=Range("○○.xlsx").Value Worksheets("入力原票").Select i = Range("S2") Range("U1").Value = Workbooks("差し込みテストデータ").Worksheet("入力原票 ").Cells(i, 1)
質問日時: 2022/06/23 20:00 質問者: aqwsz221
解決済
3
0
-
ExcelのVBAコードについて教えてください。
先日質問をしまして下記のコードを教えて頂きました。 IF Worksheets("青紙裏").Range("AN66") = "■" then Worksheets("青紙裏").Range("T66") = "□" endif このコードは AN66が「■」の場合にT66が「□」になるようにするコード設定ですが、 このコードを AN66が「■or□」の時に T66が「□」になるように変更する方法を教えてください。 よろしくお願いいたします。
質問日時: 2022/06/23 16:34 質問者: エクセル小僧
ベストアンサー
3
0
-
ACCESS DAO で不要なテーブルのフィールド(列)の削除
ACCESS DAO&VBA 初心者です。 どなたかお知恵を拝借いただけませんでしょうか。課題は以下の内容です。 諸事情(というか私の力量なんでしょうが)。納品店舗(列)とアイテム毎の発注数量(行)を、テーブルに格納しています。発注数量の合計がnull値の店舗を削除するコードを下記のように書きました。 Sub テスト() Dim DB As Database Dim Tdf As DAO.Recordset Dim i As Integer Dim s As Long Dim g As Long Dim tenn As String Dim hinn As String Set DB = CurrentDb Set Tdf = DB.OpenRecordset("○○○ピッキングテーブル") hinn = Tdf.fields(i) i = 4 For i = Tdf.fields.Count - 1 To 4 Step -1 g = 0 Tdf.MoveFirst Do Until Tdf.EOF tenn = Tdf.fields(i).Name 'MsgBox tenn s = Nz(Tdf.fields(i)) g = s + g Tdf.MoveNext Loop If g = 0 Then ※Tdf.fields(i).Delete Tdf.fields(i).Name 実行時エラー 438でストップ End If Next Set Tdf = Nothing: Set DB = Nothing End Sub ※で実行時エラーの発生。 DAO の基本的な運用および設定の間違いのように思えるのですが、解消できません。どなたかよろしくお願いします。
質問日時: 2022/06/23 12:13 質問者: 照山
解決済
4
1
-
エクセルのメモについて教えてください。
Excelのメモについて教えてください。 セルにメモを設定すると通常はセルの右上の赤い▲が表示されておりますが、 その赤い三角の表示を「左上」に設定する方法があれば教えてください。 よろしくお願いいたします。 現状の画像を添付させていただきます。 よろしくお願いいたします。
質問日時: 2022/06/23 11:32 質問者: エクセル小僧
ベストアンサー
1
0
-
【VBA】色のついたシート名を取得
フォルダに格納されているファイル全てに対して、シート名の色づきを確認しにいき、もし色がついている場合は別ファイルにシート名を記載するといったマクロを組みたいです。方法をご教示いただくことは可能でしょうか。
質問日時: 2022/06/22 15:52 質問者: aboroa
解決済
2
0
-
Excel VBA マクロ ブロック崩しのコードについて。
YouTube【エクセルVBA講座】ブロック崩し~板の操作~【上級77回】 上記を参考に板の操作をやってみましたが全く板が反応しません。 https://note.com/rabicher/n/nb37d869c6067 上記のコードもそのまま使いました。 Do While gameFG → If baceX <= (x + keyEvent() * 5) Then → If (baceX + baceW - 50) >= (x + keyEvent() * 5) Then → x = x + keyEvent() * 5 End If End If →の所でkeyEvent() = <インデックスが有効範囲にありません。>と出ます。 どうすれば良いか分かりません。 ご教授よろしくお願いいたします。
質問日時: 2022/06/22 12:33 質問者: オニギリジョー
解決済
1
0
-
ExcelのVBAコードについて教えてください。
シート名「青紙裏」に設定するVBAコードについて教えてください。 セル「AN66が■」の時に セル「T66が□」になるようにVBAコードを設定するコードについて教えてください。 よろしくお願いいたします。
質問日時: 2022/06/22 11:19 質問者: エクセル小僧
ベストアンサー
2
0
-
ベストアンサー
5
0
-
Excel vbaで逆ポーランド記法で対数の計算や三角関数の計算を可能にする方法
例えば”2+3ln(2)”といった文字列を読み取った時ln(2)の部分はどう処理すれば良いですか?
質問日時: 2022/06/20 16:38 質問者: nova3141592
解決済
1
0
-
VBAの改ページ設定について
VBAについて教えてください。 現在マクロを組んでおり行き詰まっています。 20行ごとに改ページの設定をするのに Sheets("シート名").Rows(20).PageBreak=xlPageBreakManual としています。 しかし、行のカウントをしたいのは1行目からではなく11行目からになります。 11行目から印刷設定をしており、11行目からカウントして20行ごとに改ページの設定をしたいのですが、どのようにすればよろしいのでしょうか? 自分で調べてもわからなかったので知恵を貸していただけると助かります。
質問日時: 2022/06/20 00:57 質問者: hnymmm
ベストアンサー
7
1
-
リストポックス検索
いつもお世話になっております リストポックス検索のやり方をおしえてくれませんでしょうか 下記のコードは検索など調べました。 Listbox4からListbox7 まであり、下記のようになっています。 Listbox4からListbox7 まで選択した結果を 抽出したのですが、わかる方おしえてくれませんでしょうか 下記のコードの部分が ListBox4と ListBox5のつなげ方がわかりません。 With ListBox4 For i = 0 To .ListCount - 1 If .Selected(i) = True Then Dic.Add .List(i), "" End If Next End With If Dic.Count > 0 Then _ Rng.AutoFilter Field:=7, _ Criteria1:=Dic.keys, _ Operator:=xlFilterValues エクセルのデータは B列 C列 D列 E列 F列 G列 H列 I列 No 名前 担当 性別 血液型 契約予定日 担当 電話 33 福田 晴生 フクタ ハルオ 男 O 2021/4/1 近藤 090-1356-8171 34 田代 火呂絵 タシロ ヒロエ 女 O 2022/5/8 田中 070-2204-7522 36 加藤 凱次 カトウ カツジ 男 A 2022/6/8 加藤 070-6017-6911 39 中谷 美貴 ナカタニ ミキ 女 B 2022/4/1 佐藤 090-5652-8823 40 広瀬 貴雅 ヒロセ タカマサ 男 A 2022/8/8 工藤 090-0774-3804 43 小倉 亜依 オグラ アイ 女 O 2022/10/12 工藤 090-3935-1395 45 松崎 正宣 マツサキ マサノリ 男 B 2022/7/12 近藤
質問日時: 2022/06/19 21:32 質問者: りんごプリン
ベストアンサー
1
1
-
Excelのマクロコードについて教えてください。
シートの表示に合わせて指定図形名の図形を非表示にする方法を教えてください。 シート名「受付」に 途中コード Sheets("消防添").Visible = [R37] = "消防添" Sheets("300").Visible = [R37] = "無" が有ります。 このコードは指定セル値により各非表示シートが表示されるようになっております。 シート("消防添")("300")のどちらかが表示され、両方が表示される事は有りません。 マクロを実行した時に シート("消防添")が表示されている時にシート名「審査」の図形名「電3」が非表示に シート("300")が表示されている時にシート名「審査」の図形名「消防」が非表示に 出来るコードを教えてください。 既存のマクロ Sub 紙図() Sheets("審査").Shapes("紙1").Visible = False ' Sheets("審査").Shapes("紙2").Visible = False ' Sheets("青紙表").Shapes("紙受1").Visible = False ' Sheets("青紙表").Shapes("紙受2").Visible = False ' End Sub にこのコードを追加したいです。 よろしくお願いいたします。
質問日時: 2022/06/19 10:08 質問者: エクセル小僧
ベストアンサー
1
0
-
エクセルVBAについて
tatsumaru77様 先週質問させていただいた者です。 3点程修正していただきたいところがありますので、可能であれば対応をお願いします。 ①M日の日付けを転記するとういうことだったのですが、場合によってはM/Nという場合があるので、 こちら対応していただきたいです ➁14行目の日付けですが、こちらも場合によって1日からではないことがあるので、 記載している日付けから、ひろうようにしていただきたいです。 ③最後は列についてになるのですが、D列からの場合とG列からの場合がありますので、 どちらの場合でも対応できるようにしていただきたいです。 以上です。 申し訳ありませんが、よろしくお願いします。
質問日時: 2022/06/18 23:14 質問者: Wrangleruk
ベストアンサー
2
1
-
ListView1の条件のやり方
いつもお世話になっております。 下記のコードで条件を付けることは可能でしょうか。 .SubItems(4) = wS.Range("F" & R).Value '生年月日 ここの部分で年齢が20歳以上 可能でしょうか。 わかる方おしえてくれませんでしょうか With ListView1.ListItems.Add 'ListView1に1行追加 .Text = wS.Range("B" & R).Value 'チェックボックスにB列 .SubItems(1) = wS.Range("C" & R).Value '名前 .SubItems(2) = wS.Range("D" & R).Value '性別 .SubItems(3) = wS.Range("E" & R).Value '血液型 .SubItems(4) = wS.Range("F" & R).Value '生年月日 End With End If Next
質問日時: 2022/06/18 22:43 質問者: りんごプリン
ベストアンサー
3
1
-
こんにちは。ExcelVBA初心者につき困っています。Functionで始まっている処理の中で、処理
こんにちは。ExcelVBA初心者につき困っています。Functionで始まっている処理の中で、処理を強制終了させる処理を、できれば一文で作りたいです。End Sub を入れて途中終了させたかったのですが、End functionじゃないとダメだとエラーが出てしまいます。何かよい方法はないでしょうか。。訳わからないこと言っているかもしれませんが、ご容赦ください。
質問日時: 2022/06/18 21:40 質問者: mame1216
ベストアンサー
1
0
-
列と行の名前(重複あり)が交差するセルに、データを入力したい
したい事と一致しています。参考プロクラム作成ありがとうございます。 列の名前ですが、D2みかん、H2りんごと4列置きとなります。(添付の画像参照願います。) ①上記対応で、プログラム変更内容を教えて頂けないでしょうか! ②また、その他の名前(バナナなど)も追加ありますので、D2:G2の範囲を追加できるように対応頂きたいです。(行は、問題なく追加でVBA実行できました。) 追加で、こちら提示のプロクラム方法で、同じ名前の表示方法も教えて頂くと有難いです。 こちら提示のプログラム間違いで、【改定前】TgCol = AAi 【改定後】TgCol = i に改定願います。 お手数をお掛けしますが、いろいろ勉強させて頂きたく、宜しくお願いいたします。
質問日時: 2022/06/18 21:20 質問者: sas339
解決済
1
1
-
VBA Twitter 高度な検索 日付 単語 リンクをOutlook で送信
Twitterに高度な検索画面があります。①日付の範囲を入力し、②特定の単語を入力し、画面右上にある黒丸の中の検索ボタンを押したURLを、outlookに貼り付けて、毎朝9時に同じ送信相手に送るというVBAを教えてください TWITTER検索は 単語を「避難民 受け入れ ウクライナ」の3つ 日付範囲を「2022年6月5日 から 2022年M月D日」 URLの例 ここでは until%3A2022-06-18 とした https://twitter.com/search?lang=ja&q=%E9%81%BF%E9%9B%A3%E6%B0%91%E3%80%80%E5%8F%97%E3%81%91%E5%85%A5%E3%82%8C%E3%80%80%E3%82%A6%E3%82%AF%E3%83%A9%E3%82%A4%E3%83%8A%20until%3A2022-06-18%20since%3A2022-06-05&src=typed_query この場合、D+1日の9時にoutlookから、特定の相手へ送信します 特定の相手のアドレスは、 TO欄 AAAA@example.com CC欄 BBBB@example.com; CCCC@example.com 日付のところが、難しければ、送信する瞬間の年月日で構いません 上記のリンクをアウトルックにはりつくようにして、自分がPCを立ち上げている限り、自動送信できれば助かります 以上です。
質問日時: 2022/06/18 18:36 質問者: freeforvirus
ベストアンサー
2
2
-
マクロVBA 1シートをまとめる 閉じ方 初心者 SOS!
エクセル1シートのみを移動し、開いたシートは閉じたいのですが、 ネットで検索したものが、全シートの移動のみで、 1シートを移動し、閉じたいのです。 wbTo.Worksheets.Move After:=wbFrm.Worksheets(wbFrm.Worksheets.Count) ↓ wbTo.Worksheets(1).Move After:=wbFrm.Worksheets(wbFrm.Worksheets.Count) ここだけ直したら、1シートの移動は出来たのですが、 不要なブックの閉じ方が分かりません。 どなたかわかる方いらっしゃいましたら、コードを教えてください。 よろしくお願いします。 Public Sub 複数エクセル1シート開いたブックへ移動() Dim arrFileName As Variant 'ダイアログで選択した複数のブック名を配列で取得する 'GetOpenFilenameメソッドで、MultiSelect:=Trueとすると、ブックを複数選択できる。 arrFileName = Application.GetOpenFilename("Excelブック,*.xls?", MultiSelect:=True) 'ファイルを選択しなかった場合、処理を終了する If TypeName(arrFileName) = "Boolean" Then: Exit Sub Dim v As Variant '配列の各要素を格納する変数 Dim Flag As Boolean '最初に開いたブックか判定する変数 Dim wbTo As Workbook '2回目以降に開いたブックの参照用変数 Dim wbFrm As Workbook '最初に開いたブックの参照用変数 'GetOpenFilenameメソッドで取得した各ブックのフルパスの数だけループ For Each v In arrFileName Workbooks.Open FileName:=v 'Excelをひらく If Flag Then '最初に開いたブックは処理しない Set wbTo = ActiveWorkbook 'Moveメソッドで、2回目以降に開いたブックの1シートを、最初に開いたブックのシート末尾に移動する wbTo.Worksheets(1).Move After:=wbFrm.Worksheets(wbFrm.Worksheets.Count) Else '最初に開いたブックの参照を割り当てる Set wbFrm = ActiveWorkbook End If Flag = True Next v End Sub
質問日時: 2022/06/17 14:54 質問者: otosara
ベストアンサー
1
0
-
複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。
シート1 シート2 A列 A列 AAA AAA BBB BBB CCC DDD AAA CCC ↓ シート3 A列 AAA BBB CCC DDD 上記のように複数シートに入力されているデータを別のシートに重複なしで抽出するVBAを作りたいので、お知恵を貸して頂きたいです。 VBA初心者ですので、ご迷惑をおかけするとは思いますが、よろしくお願いします。 ちなみに 単一の列を同じシートの列に抽出するVBAはネットで探して成功しました。 それが以下のコードです。 Sub リスト作成() Dim A As New Collection, i As Long On Error Resume Next For i = 3 To Cells(Rows.Count, 3).End(xlUp).Row A.Add Cells(i, 3), Cells(i, 3) Next i On Error GoTo 0 For i = 1 To A.Count Cells(i + 2, 6) = A(i) Next i End Sub
質問日時: 2022/06/17 10:33 質問者: VBA初心者desu
ベストアンサー
9
1
-
列と行の名前(重複あり)が交差するセルに、データを入力したい
【やりたい内容】 1)元データのA列5行目~C列14行目の表から、3)結果(やりたい結果)のように、 名前(重複あり)が交差するセルに、日付と名前と数量のデータを入力したいので、 2-2)VBAプログラムを作成し実行するのですが、結果が、2-1)結果となります。 【質問】 以下の①②が上手く行きませんので、何方か教えて頂けないでしょうか! VBA初心者ですので、宜しくお願いします。 又は、他の手法のプログラムで良い方法が有りましたら、ご指導お願いします。 ① 行の名前が複数ある場合の記述方法が分かりません。(列の名前は複数無し) ② 行に名前(メロン)が有るのですが、列に名前が無い場合は、記入無しにしたい。 1)元データ A列 B列 C列 5行 日付 名前 数量 6行 5/1 みかん 750 7行 5/2 りんご 300 8行 5/2 いちご 900 9行 5/3 すいか 850 10行 5/5 いちご 700 11行 5/6 みかん 1200 12行 5/7 いちご 1200 13行 5/10 メロン 1500 14行 5/15 すいか 1200 2-1)結果 D列 E列 F列 G列 H列 I列 J列 K列 L列 M列 N列 O列 P列 Q列 R列 S列 2行 みかん りんご いちご すいか 5行 日付 数量 状況 名前 日付 数量 状況 名前 日付 数量 状況 名前 日付 数量 状況 名前 6行 5/1 1200 みかん 7行 5/2 300 りんご 8行 5/2 1200 いちご 9行 5/3 1200 すいか 10行 11行 12行 13行 5/10 1500 メロン 14行 2-2)VBAプログラム Sub クロス入力() Dim i, k, TgRow, TgCol As Long MaxRow = Cells(Rows.Count, 2).End(xlUp).Row '最終行の取得 MaxCol = Cells(2, Columns.Count).End(xlToLeft).Column '最終列の取得 'データ削除 If MaxRow > 5 Then Range(Cells(6, "D"), Cells(MaxRow, MaxCol)).ClearContents End If 'データ抽出 For Each k In Range("B6:B" & MaxRow) For i = 6 To MaxRow If Cells(i, 2) = k Then TgRow = i Exit For End If Next i For i = 4 To MaxCol If Cells(2, i) = k Then TgCol = AAi Exit For End If Next i 'データ出力 Cells(TgRow, TgCol).Value = k.Offset(0, -1).Value Cells(TgRow, TgCol).Offset(0, 3).Value = k.Value Cells(TgRow, TgCol).Offset(0, 1).Value = k.Offset(0, 1).Value Next k End Sub 3)結果 (やりたい結果) D列 E列 F列 G列 H列 I列 J列 K列 L列 M列 N列 O列 P列 Q列 R列 S列 2行 みかん りんご いちご すいか 5行 日付 数量 状況 名前 日付 数量 状況 名前 日付 数量 状況 名前 日付 数量 状況 名前 6行 5/1 750 みかん 7行 5/2 300 りんご 8行 5/2 900 いちご 9行 5/3 850 すいか 10行 5/5 700 いちご 11行 5/6 1200 みかん 12行 5/7 1200 いちご 13行 14行 5/15 1200 すいか
質問日時: 2022/06/12 11:17 質問者: sas339
解決済
3
0
-
列を指定して値を左から5文字にそろえる
A列に文字数がバラバラの値が入っているセルが100行以上あります、行数は決まっていません。 5文字以下の値は存在しません。 VBAでA列の各セルの値を、すべて左から6文字以降削除して揃えたいです。 お詳しい方宜しくお願いいたします。
質問日時: 2022/06/10 20:28 質問者: さわ子
ベストアンサー
1
0
-
ユーザーフォームが立ち上がらない
いつもお世話になっております。 下記のコードで質問があります。 共有フォルダに保存して わたしが開くと問題なくひらけるのですが、 他のユーザーが開くと エクセルのシートは表示されますが、 編集を有効にするをおすと エクセルがひらけない、 ユーザーフォームが立ち上がらない のはどうしてか わかる方おしえてくれませんでしょうか Private Sub Workbook_Open() UserForm1.Show vbModeless Application.Visible = False Windows(ThisWorkbook.Name).Visible = False End Sub
質問日時: 2022/06/10 18:57 質問者: りんごプリン
ベストアンサー
2
0
-
ExcelのVBAコードについて教えてください。
作業ブックのシート名「審査」に Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True Sheets("真北").Visible = [L27] = "有" Sheets("角地").Visible = [L28] = "有" Application.ScreenUpdating = True End Sub のコードを設定しております。 このコードは 指定セルをプルダウン選択で等で「有」にした場合に 非表示シートが表示されるように設定しております。 シート名「審査」にコード設定は変わらず、 このコードを下記のように、指定セル値を違うシートに変更しました、 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True Sheets("角地").Visible = Sheets("1").[I26] = "有" Sheets("真北").Visible = Sheets("1").[I30] = "有" Application.ScreenUpdating = True End Sub しかし、シート名「1」のセル「I26」「I30」をプルダウン選択で「有」に変更しても各非表示シート「真北」「角地」が上手く表示されません。 解決方法を教えてください。 よろしくお願いいたします。
質問日時: 2022/06/10 11:06 質問者: エクセル小僧
ベストアンサー
2
0
-
ExcelのVBAコードについて教えてください。
作業ブックのシート名「審査」に Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True Sheets("真北").Visible = [L27] = "有" Sheets("角地").Visible = [L28] = "有" Application.ScreenUpdating = True End Sub のコードを設定しております。 このコードは 指定セルをプルダウン選択で等で「有」にした場合に 非表示シートが表示されるように設定しております。 このコードを指定セル値を違うシートに指定変更する方法を教えてください。 シート名「審査」に設定は変わらず、 セル値 [L27] = "有"をシート名「1」のセル「I30」が「有」で(真北)シート表示 セル値 [L28] = "有"をシート名「1」のセル「I26」が「有」で(角地)シート表示 以上です。 よろしくお願いいたします。
質問日時: 2022/06/10 09:24 質問者: エクセル小僧
ベストアンサー
3
0
-
エラーコード1004
実行時エラー1004 Rangeメソッドは失敗しました:_Worksheetオブジェクト というエラーメッセージが With ws の次の行で出ます。 何が間違っているのか分からないのですが、どう直せばいいのかご教示いただけますでしょうか? Sub Macro1() Dim ws As Worksheet Dim i As Integer Dim r As Integer Set ws = ActiveSheet For i = 4 To 704 With ws If .Range(.Cells(i, 2)).Value = "前年" Then .Range(.Cells(i, 3), .Cells(i, 14)).Value = _ .Range(.Cells(i, 3).Offset(1, 0), .Cells(i, 14)).Offset(1, 0).Value If .Range(.Cells(i, 2)).Value = "今年" Then .Range(.Cells(i, 3), .Cells(i, 14)).Value = "" End If End If やりたい事は、B列に前年と今年が交互に複数行入っていて、間に空白行が2行入り、また前年と今年が複数行入り、全支店分が続きます。 列はC列~N列まで12か月分のデータが入り、O列に横の合計が入ります。 これを、B列上の前年が見つかれば一つ下の今年のデータを前年にコピペして、(一つ下に)今年が見つかればその行のC~N列のデータを空白行にしたいです。
質問日時: 2022/06/09 14:12 質問者: 197808
ベストアンサー
6
0
-
【VBAで、On Error が効かない】
シート名が 1."記録 "だった場合には、"記録"に修正する。 2."記録"だった場合には何もしない。 というマクロを作ったのですが、シート名が"記録"だった場合に、「インデックスが有効範囲にありません」というエラーが発生してストップしてしまいます。 どこに原因があるのでしょうか? -----------構文---------------- On Error GoTo Kiroku_Error Sheets("記録 ").Select ←インデックスが有効範囲にありません GoTo Kiroku_noError Kiroku_Error: GoTo nextstep Kiroku_noError: Sheets("記録 ").Select Sheets("記録 ").Name = "記録" nextstep:
質問日時: 2022/06/09 10:08 質問者: ninin1234
ベストアンサー
3
1
-
excel vba
a=1〜3、b=1〜3の時、a+b=4となるような時のexcel vbaのコードはどのようになるでしょうか? シンプルで簡単なものを教えてください。
質問日時: 2022/06/08 23:19 質問者: じぇす
解決済
2
0
-
エクセルVBAコピー
エクセルマクロのVBAについてご教示ください、 データ一覧の表にフィルターをかけた後、データ項目行を除くセルをコピーして、別ブックにペーストするようにしたのですが、うまく貼り付きません。 For i = 1 To 100 ' フィルタ sheet1.Range("A1:CX1").AutoFilter field:=102, Criteria1:=CStr(i) ' フィルタ結果カウント cnt = WorksheetFunction.Subtotal(3, sheet1.Range("CX2").CurrentRegion.Columns(102)) If cnt > 1 Then Set bookNew = Workbooks.Open(sPath & "\入力原票.xlsx") Set sheetNew = bookNew.Sheets(1) ' コピー sheet1.Range("A2:CW2000").Copy sheetNew.Range("A9:CW2009").PasteSpecial Paste:=xlPasteValues 問題点があれば教えていただきたいです。
質問日時: 2022/06/08 21:45 質問者: aqwsz221
解決済
2
0
-
Access VBAから使用したExcelプロセスを閉じる方法について
Access VBAでエクセルシートをテーブルに読み込むプログラムを作成中で、目的の動作は 実現できたのですが処理完了してもコピー元エクセルシートにロックがかかったままで、 タスクマネージャを見るとエクセルプロセスが残っている事が分かり、プロセスキルの方法 をWebで色々検索してみたのですが解決方法が分からずどなたかアドバイス頂けないでしょうか? 宜しくお願いします。 <試した事> WorkbookをClose、ExcelアプリオブジェクトをQuitしても駄目でした。 ReleaseComObjectをCreateObjectした順と逆に使用するとプロセスキルできると あったのですがこちらは投稿者環境のメソッド一覧に存在せずエラーとなりました。 <投稿者環境> Visual Basic for Applications 7.1 Version1119 Microsoft 365 Apps for enterprise 16.0.13801.21214 ドットネットフレームワークのインストールはアプリ一覧になし 当該ソースコード本文に記載したところNTTレゾナントの検閲でひっかかってしまった のでスクリーンショットを添付します。 エディタコピーでなく手打ちコピーしたので誤字あったらごめんなさい。
質問日時: 2022/06/08 17:50 質問者: 塩ザコショウ
ベストアンサー
4
0
-
VB DataGridViewについて
DataGridViewで画像のようにしたいと考えています。 黒い四角はセルだと考えてください ラベル1,2は与えられた値が表示され、その値によって色が変わるようにしたいです。 画像のようにセル全体を塗りつぶすのではなく白い部分を残しつつ塗りつぶしを行いたいと考えたのでラベルを使用しようと考えたのですが、どのようにしてセルにラベルを貼り付ければいいのかがわかりませんでした。 Locationでセルの中にある風にしていたのですがフォームのサイズを変えた際にセルからずれてしまったため質問させていただきました。 何かいい案、解決策などがあれば教えてください。 聞き方が下手で申し訳ありません。
質問日時: 2022/06/08 17:20 質問者: sige_417
ベストアンサー
3
0
-
ExcelのVBAコードについて教えてください。
作業ブックのシート名「1」に Option Explicit Private Sub Worksheet_Activate() Dim Row As Long For Row = 2 To 23 With Cells(Row, "M") .ID = .Value End With Next Row End Sub Private Sub Worksheet_Calculate() Dim Row As Long, Changed As Boolean For Row = 2 To 23 With Cells(Row, "M") If .ID <> .Value Then .ID = .Value Changed = True End If End With Next Row ' Application.ScreenUpdating = False If Changed Then Const Temp1 = "○○市建築基準法施行条例 第" Const Temp2 = "条 適用" Dim RM As Long, Temp As String Temp = "" For RM = 2 To 23 If Cells(RM, "M") = "●" Then Temp = Temp & Cells(RM, "N") & "・" End If Next RM Temp = Replace(Temp & "@@", "・@@", "") Application.EnableEvents = False If Temp = "@@" Then Range("O24").ClearContents Else Range("O24") = Temp1 & Temp & Temp2 End If Application.EnableEvents = True End If Sheets("細則").Visible = [AE4] = "有" Sheets("角地").Visible = [I26] = "有" Sheets("真北").Visible = [I30] = "有" Sheets("自衛隊").Visible = [I23] = "有" Application.ScreenUpdating = True End Sub のコードを設定しております。 最初のコードはセルM列に●が表示されるとN列の数字がセルO24に表示されるようになっており、 次のコード Sheets("細則").Visible = [AE4] = "有" Sheets("角地").Visible = [I26] = "有" Sheets("真北").Visible = [I30] = "有" Sheets("自衛隊").Visible = [I23] = "有" が各セルの表示に合わせて非表示シートを表示させるように設定しておりますが、 Sheets("細則").Visible = [AE4] = "有" Sheets("角地").Visible = [I26] = "有" Sheets("真北").Visible = [I30] = "有" Sheets("自衛隊").Visible = [I23] = "有" このコードが上手く動作してくれません。 解決方法をよろしくお願いいたします。
質問日時: 2022/06/08 12:55 質問者: エクセル小僧
ベストアンサー
6
0
-
Excel・ユーザーフォームの情報を受け渡したい
チェックが入った情報を置換?して標準モジュールに受け渡したいです。 ◼️やりたいこと ユーザーフォームに設定したチェックボックスのチェックが入ってる人をアドレスに置換して標準モジュールのメール作成コードのtoに入れたい。 Initializeに何か設定しておけばいいのか、完了クリック時に何か設定するのかわからずうまくいきません。 VBAは勉強中のレベルです。どなたかご教授ください。 sub mail() Form_adr.Show Dim objOutlook As Outlook.Application Dim objMail As Outlook.MailItem Set objOutlook = New Outlook.Application Set objMail = objOutlook.CreateItem(olMailItem) With objMail .To = ★←ここにチェックいれた人のアドレスを入れたい .HTMLBody = "test" End With Unload Form_adr End sub ▼Form_adrの中身 ()内はオブジェクト名 □田中 □鈴木 □佐藤 [完了] (cb1) (cb2) (cb3) [完了]はコマンドボタンで.Me Hideだけ書いています。
質問日時: 2022/06/08 10:11 質問者: empro
ベストアンサー
4
0
-
VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc
VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExcelで多数の条件付き書式で色を塗りつぶしています。 またもともと行単位で条件付き書式とは別に色分けしている部分もあります。 その中で条件付き書式で色塗りされたセルだけを行単位で数をカウントするマクロを作りたいのですが、どうも上手くできません。以下が今作ってるマクロです。どなたかわかる方はいますでしょうか? よろしくお願いします。 Dim taishoRow As Range Dim Rng As Range Dim cnt As Long On Error Resume Next Set taishoRow = Application.InputBox("対象行を選択","行取得",,Type:=8) For Each Rng In taishoRow If Rng.FormatConditions.Count <> 0 Then If Rng.DisplayFormat.Interior.ColorIndex <> xLNone Then cnt = cnt + 1 End If End If Next Rng MsgBox cnt End sub
質問日時: 2022/06/08 10:02 質問者: ヤスシモ
ベストアンサー
3
0
-
VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc
VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExcelで多数の条件付き書式で色を塗りつぶしています。 またもともと行単位で条件付き書式とは別に色分けしている部分もあります。 その中で条件付き書式で色塗りされたセルだけを行単位で数をカウントするマクロを作りたいのですが、どうも上手くできません。以下が今作ってるマクロです。どなたかわかる方はいますでしょうか? よろしくお願いします。 Dim taishoRow As Range Dim Rng As Range Dim cnt As Long On Error Resume Next Set taishoRow = Application.InputBox("対象行を選択","行取得",,Type:=8) For Each Rng In taishoRow If Rng.FormatConditions.Count <> 0 Then If Rng.DisplayFormat.Interior.ColorIndex <> xLNone Then cnt = cnt + 1 End If End If Next Rng MsgBox cnt End sub
質問日時: 2022/06/08 10:00 質問者: ヤスシモ
解決済
3
0
-
worksheets & rows メソッドは失敗しました。のエラー回避のやり方
いつもお世話になっております。 ① worksheetsメソッドは失敗しました。 LR = ThisWorkbook.Worksheets("B").Range("B" & Rows.Count).End(xlUp).Row ② rowsメソッドは失敗しました。 With Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion .AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4 End With ThisWorkbook Workbooks("xx.xlsm")をつけてもエラーになります。 ユーザーフォーム上にあるのでなにか付け加えないといけないのでしょぅか いけないのでしょぅか 下記のコードをがあります。 AutoFilterMode = False With Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion .AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4 End With With ListView1 .ListItems.Clear .ColumnHeaders.Clear End With With ListView1 .View = lvwReport .FullRowSelect = True .AllowColumnReorder = True .Gridlines = True .AllowColumnReorder = True .CheckBoxes = True .ForeColor = vbBlue .ColumnHeaders.Add , , "NO", 70 .ColumnHeaders.Add , "B", "名前", 100 .ColumnHeaders.Add , "C", "性別", 50 .ColumnHeaders.Add , "D", "血液型", 50 .ColumnHeaders.Add , "F", "生年月日", 100 Dim LR As Long LR = ThisWorkbook.Worksheets("B").Range("B" & Rows.Count).End(xlUp).Row 'B列最終行 For R = 2 To LR If Rows(R).Hidden = False Then With ListView1.ListItems.Add .Text = Range("B" & R).Value .SubItems(1) = Range("C" & R).Value .SubItems(2) = Range("D" & R).Value .SubItems(3) = Range("E" & R).Value .SubItems(4) = Range("F" & R).Value End With End If Next End With AutoFilterMode = False
質問日時: 2022/06/07 13:58 質問者: りんごプリン
ベストアンサー
1
1
-
VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません
PDFをPDFアプリで印刷しようと思っていますが上手くゆきません。 以下のコードを実行すると 「AcrobatReader この文書を開くときにエラーが発生しました。このファイルが見つかりません。」というコメントが出てしまいます。 以下の「fff」をMsgBoxを使って表示させたのですが、ファイル名は間違っていません。 フォルダの中にはPDFファイルを一つだけ置く決まりで運用しています。 コードの間違いを教えて下さい。 Sub PDFをPDFアプリで印刷する() Dim wshShellObj As IWshRuntimeLibrary.WshShell 'Shellオブジェクト Set wshShellObj = New IWshRuntimeLibrary.WshShell Dim strShellCommand As String 'Shellコマンド Dim folderPath As String folderPath = "C:\フォルダパス\" 'フォルダパス Dim str1 As String Dim fff As Variant str1 = "C:\フォルダパス\" 'フォルダパス 'Dir関数を使ってファイル名を取得する fff = Dir(folderPath) printFilePath = folderPath & fff '分割元のファイルパス Dim printerName As String printerName = "PDF reDirect v2 on Ne00:" 'プリンタ名(PDF印刷アプリ) 'Shellコマンドを設定 strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName 'Shellコマンドを実行 wshShellObj.Run (strShellCommand) 'オブジェクトを強制開放 Set wshShellObj = Nothing End Sub
質問日時: 2022/06/06 22:04 質問者: ニックネーム船長
ベストアンサー
1
0
-
違う文字のみ色を塗る方法がわかりません。。 G列とH列のに文字が入っています。 例えばG5とH5の文
違う文字のみ色を塗る方法がわかりません。。 G列とH列のに文字が入っています。 例えばG5とH5の文字を比較したときにG5にはない文字がH5に入っていた場合、その文字のみを赤色にする方法はありますでしょうか?(´;ω;`)
質問日時: 2022/06/03 17:13 質問者: kokorororo
解決済
3
0
-
エクセル VBA 条件付き書式 簡略化したい
下記条件にてソースを書いていますが 簡略化したく 現状明細1行毎(16条件毎)に置換して追加する形で書いていますが 外部データ(CSV)からの取込で データの順序が結構な間隔で変更されます。 その都度書き換えるとミスが発生しやすく どうすれば良いかわかりません Doを使っても上手く行きません A B C D 1 01a 111 *** 001 A1白 2 02a 222 *** 002 A2ピンク 3 03a 333 *** 003 A3赤 4 01b 111 *** 001 A4白 5 02b 222 *** 002 A5ピンク 6 03b 333 *** 003 A6赤 全て文字列のデータです。 条件が12 データの行数が16行あります。 D1が001ならA1を白 D1が002ならA1をピンク D1が003ならA1を赤 D2が001ならA2を白 D2が002ならA2をピンク D2が003ならA2を赤 メインプログラムより抜粋 '条件付き書式セット 'シートプロテクト解除 ActiveSheet.Unprotect '条件付き書式を削除 (指定範囲のみ) Range("A1:D6").FormatConditions.Delete 'サブルーチン コール Call ZAI '条件付き書式_材質識別用 ↓↓ Sub ZAI() '条件付き書式 材質判別用 '宣言 Dim Con Dim font1 As Font '1行目 '001 Set Con = Range("$A$1").FormatConditions.Add(Type:=xlExpression, Formula1:="=$D$1=""001""") Con.Interior.Color = RGB(255, 255, 255) Con.Font.Color = RGB(0, 0, 0) Con.StopIfTrue = False '002 Set Con = Range("$D$1").FormatConditions.Add(Type:=xlExpression, Formula1:="=$D$1=""002""") Con.Interior.Color = RGB(255, 192, 203) Con.Font.Color = RGB(0, 0, 0) Con.StopIfTrue = False '003 Set Con = Range("$D$1").FormatConditions.Add(Type:=xlExpression, Formula1:="=$D$1=""003""") Con.Interior.Color = RGB(255, 0, 0) Con.Font.Color = RGB(0, 0, 0) Con.StopIfTrue = False ........続く '2行目 '001 Set Con = Range("$A$2").FormatConditions.Add(Type:=xlExpression, Formula1:="=$D$2=""001""") Con.Interior.Color = RGB(255, 255, 255) Con.Font.Color = RGB(0, 0, 0) Con.StopIfTrue = False '002 Set Con = Range("$D$2").FormatConditions.Add(Type:=xlExpression, Formula1:="=$D$2=""002""") Con.Interior.Color = RGB(255, 192, 203) Con.Font.Color = RGB(0, 0, 0) Con.StopIfTrue = False '003 Set Con = Range("$D$2").FormatConditions.Add(Type:=xlExpression, Formula1:="=$D$2=""003""") Con.Interior.Color = RGB(255, 0, 0) Con.Font.Color = RGB(0, 0, 0) Con.StopIfTrue = False ..........続く End SUB
質問日時: 2022/06/02 17:46 質問者: ashibo
ベストアンサー
2
1
-
VBAについて教えてください。 Excelで セルのB6~BG24でダブルクリックすると ダブルクリ
VBAについて教えてください。 Excelで セルのB6~BG24でダブルクリックすると ダブルクリック1回目 赤色に塗りつぶし ダブルクリック2回目 黄色に塗りつぶし ダブルクリック3回目 クリア となるように、プログラムを組みたいです。 初心者につき、優しく教えて頂けると幸いです。 詳しい方ご教示ください。
質問日時: 2022/06/02 17:07 質問者: のたろう
ベストアンサー
1
0
-
リストビューに条件による表示
いつもお世話になっております。 リストボックス3 リストボックス4 があります。 2022年4月1日から2023年3月31日まで リストボックス3には月初め リストボックス4には月の終わり 各リストボックスを選択して コマンド実行で リストビューに表示させたいのですが、 エクセルのシートの抽出はうまくいっているのですが リストビューには何も表示されません。 どこが わるいのか わかる方おしえてくれませんでしょうか Private Sub CommandButton8_Click() With Range("B1").CurrentRegion .AutoFilter Field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4 End With With ListView1 .ListItems.Clear .ColumnHeaders.Clear End With With ListView1 .View = lvwReport .FullRowSelect = True .AllowColumnReorder = True .Gridlines = True .AllowColumnReorder = True .CheckBoxes = True .ForeColor = vbBlue .ColumnHeaders.Add , , "NO", 70 .ColumnHeaders.Add , "B", "名前", 100 .ColumnHeaders.Add , "C", "性別", 50 .ColumnHeaders.Add , "D", "血液型", 50 .ColumnHeaders.Add , "F", "生年月日", 100 For R = 2 To LR If Rows(R).Hidden = False Then With ListView1.ListItems.Add .Text = Range("B" & R).Value .SubItems(1) = Range("C" & R).Value .SubItems(2) = Range("D" & R).Value .SubItems(3) = Range("E" & R).Value .SubItems(4) = Range("F" & R).Value End With End If Next End With AutoFilterMode = False For i = 0 To Me.ListBox3.ListCount - 1 ListBox3.Selected(i) = False Next For i = 0 To Me.ListBox4.ListCount - 1 ListBox4.Selected(i) = False Next End Sub
質問日時: 2022/06/01 20:19 質問者: りんごプリン
ベストアンサー
1
1
-
指定列最終行までのスペースを改行するVBAについて
いつもお世話になっております。 この度、指定列内のスペース(※半角スペース・全角スペース(※スペースが複数続く場合もあります)を全て改行するVBAについてご教示いただきたく質問させていただきました。 初心者知識で色々と調べ、指定列セルは For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row 'B列3行目から最終行まで繰り返し 1セル処理時のエラー対策として If .Range("B3") <> "" Then を使用することまでは調べられたのですがスペースを改行する構文はどの様な形になるのでしょうか? Excelのバージョンは2019になります。 どうぞよろしくお願いいたします。
質問日時: 2022/06/01 19:50 質問者: pino382
ベストアンサー
2
0
-
VBA別シートの最終行の次行へ転記したい。
マクロ素人で途中まで作成したんですがこの後が分かりません。 教えて頂けますでしょうか? 見積書シートから請求書シートに転記したいのですが天気までは出来たんですが、次に転記した時に次の行に転記したいです。 今だと何度も同じところに転記する状態です。 アドバイスよろしくお願い致します。 Sub 転記() Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("見積書") Set ws2 = Worksheets("請求書") ws2.Range("B16:N33").Value = ws1.Range("B16:N33").Value MsgBox "請求書へ転記が完了しました。" End Sub
質問日時: 2022/06/01 17:54 質問者: アヅシン
ベストアンサー
3
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Visual Basic(VBA)】に関するコラム/記事
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
-
中古物件転売時の節税対策にメス?不動産投資家は戦々恐々?元国税が解説
不動産の取引において、土地と建物を一括で売買する場合、土地に消費税はかからないが、建物には消費税がかかる。これを利用して、例えば土地と建物を合計1億円で売る場合、土地の値段を9999万9999円にし、建物を1円...
-
話題の「風呂キャンセル界隈」、お風呂に「入らない」のではなく「入れない」?
皆さんは、「風呂キャンセル界隈(かいわい)」という言葉を聞いたことはあるだろうか。「お風呂に入らない(入れない)人」のことで、最近ネット上などで話題になっているようだ。「教えて!goo」にも、「風呂に入...
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 入力箇所指定方法
-
EXCEL vbaでシート上に配置したボタ...
-
VBA 別ブックからコピペしたいので...
-
配列のペースト出力結果の書式について
-
エクセルのVBAコードについて教えて...
-
エクセルのマクロについて教えてく...
-
エクセルのマクロについて教えてく...
-
エクセルのマクロについて教えてく...
-
Excel VBA 定義されたプロージャ名...
-
【ExcelVBA】インデックスが有効範...
-
VBA 別ブックから条件に合うものを...
-
郵便番号検索APIにてget ElementByT...
-
エクセルのマクロについて教えてく...
-
エクセルのマクロについて教えてく...
-
エクセルのマクロについて教えてく...
-
エクセルのマクロについて教えてく...
-
vbaにてseleniumを使用したedgeスク...
-
エクセルのマクロについて教えてく...
-
ExcelVBA シート名を複数セルから取...
-
Outlookの「受信日時」「件名」「本...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 別ブックからコピペしたいので...
-
Vba ファイル書き込み時に書き込み...
-
Excel_VBAについて質疑です。(for...
-
VBAの間違い教えて下さい
-
VBA コードどこがおかしいですか?
-
VBA 円グラフ 特定条件に一致したデ...
-
VBA 別ブックから条件に合うものを...
-
pdfファイルの複数添付 引数の型
-
【ExcelVBA】インデックスが有効範...
-
ExcelVBAマクロで実行した時の疑問
-
Vba UserformからExcelシートのサイ...
-
VBA初心者です。次のVBAコードで、1...
-
Outlookの「受信日時」「件名」「本...
-
Excel 範囲指定スクショについて Ex...
-
vbs ブック共有を解除
-
配列のペースト出力結果の書式について
-
Excel VBAで値を変えながら、pdf出...
-
VB.net(VB)で、フォームにExcelファ...
-
vbaにてseleniumを使用したedgeスク...
-
ExcelVBA シート名を複数セルから取...
おすすめ情報