[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)

Excel総合相談所 136 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

790: 788 [sage] 2019/09/17(火) 21:46:13.28 >>789 ありがとうございます<(_ _)> http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/790

791: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/17(火) 23:33:50.98 >>725 そうなんだけどね、シートに書き出したデータをもう一度テーブルとして使う時に、 範囲指定が必要になる場合があるんですよ。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/791

792: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/18(水) 00:36:57.35 自動的にセル名を定義する方法はありますか。 例えばA1セルに「野菜」と入力したら、 自動的にA1：A10の範囲が「野菜」セルと してセル名設定され、A1を「果物」変更 するとセル名も自動で変わるようにしたいです。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/792

793: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/18(水) 13:09:29.17 ブックAのシート1〜iまでのA1セルの数字を合計した数字をブックBのA1セルに転記したいです vbaでなんとかならないでしょうか？ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/793

794: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/18(水) 16:27:13.80 なんとかなります http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/794

795: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/18(水) 18:57:04.69 Ｄ２〜Ｇの４列中に含まれる"株式会社"・"有限会社"・"支店"を消す下の構文を作ったのですが 効果が同じシートの全てのセルに適応されてしまいます。Ｄ〜Ｇの範囲内に収めるにはどう書くのが正しいのでしょうか i = Cells(Rows.Count, 1).End(xlUp).Row Range("D2:G" & i).Select Cells.Replace What:="株式会社", Replacement:="" Range("D2:G" & i).Select Cells.Replace What:="有限会社", Replacement:="" Range("D2:G" & i).Select Cells.Replace What:="有限会社", Replacement:="" http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/795

796: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/18(水) 19:30:26.13 >>792 VBAでできる >>795 Cells.は全選択という意味 選択範囲はSelection. http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/796

797: 796 [sage] 2019/09/18(水) 19:39:02.28 >>796 勉強になりました　ありがとうございます http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/797

798: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/18(水) 20:31:59.18 >>796 >>792です VBAじゃないと無理なんですね、ありがとうございました。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/798

799: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/19(木) 18:15:05.74 Ａ列〜Ｊ列に空白のセルがあれば、そのセルの１つ上のセルをコピーする （Ａ列の最終行まで繰り返す）ができるコードを教えてください。 ＊１行目と２行めは必ず値が入っています http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/799

800: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/19(木) 20:02:01.15 a列だけhttps://docs.microsoft.com/ja-jp/office/vba/excel/concepts/cells-and-ranges/fill-a-value-down-into-blank-cells-in-a-column Sub FillCellsFromAbove() ' Turn off screen updating to improve performance Application.ScreenUpdating = False On Error Resume Next ' Look in column A With Columns(1) ' For blank cells, set them to equal the cell above .SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C" 'Convert the formula to a value .Value = .Value End With Err.Clear Application.ScreenUpdating = True End Sub http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/800

801: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/19(木) 20:05:36.73 最初のwithの後ろのcolumns(1)を range("a1:j200")みたいに操作したい範囲にすれば良いはず http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/801

802: 名無しさん＠そうだ選挙にいこう [] 2019/09/19(木) 20:19:08.89 >>801 できました。ありがとうございます http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/802

803: 名無しさん＠そうだ選挙にいこう [] 2019/09/19(木) 21:12:47.03 >>799 もう1列使えば、数式だけでいける A列が元データで、B列が空白を埋めたデータの場合 b2に"=if(IsEmpty(a2),b1,a2)"を入力して下向きにフィル http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/803

804: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/19(木) 21:20:23.62 >>803 >もう1列使えば そういうの回答として無意味 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/804

805: 名無しさん＠そうだ選挙にいこう [] 2019/09/19(木) 22:18:42.68 https://dotup.org/uploda/dotup.org1948859.zip.html このファイルでマクロを実行すると、自分の理解では「if k=3 and m=1 and Range(E10).Value <= m(=1)」となる瞬間が来て、、 Ｇ１０セルはＡになるはずなのですが、どうしてもすべてＢになります どこが間違っているのでしょうか？ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/805

806: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/19(木) 22:50:58.07 >>805 一度Aになったあと、ループが進んで次の瞬間にBに書き換えられてる http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/806

807: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/19(木) 23:35:19.41 【1 OSの種類 　 　 　 　 .】 Windows１０ 【2 Excelのバージョン 　 】 Excel２０１９ 【3 VBAが使えるか　 　 .】 コピペだけできます。 【4 VBAでの回答の可否】 可 "元帳"というマクロを実行するＢｏｏｋの中に"請求一覧"というシートがあります そしてそのＢｏｏｋ"元帳"と同じフォルダ内に、さらに"請求書"と言うフォルダがあり、その中に複数の.XLSファイルがあります。 その複数の.XLSファイルのそれぞれの"Sheet1"のA列〜K列の２行目から最終行（Ａ列）までをコピーして シート"請求一覧"の最終行（Ａ列）に貼り付けて追加していくコードをおしえてください。 また、マクロを実行する"元帳"ｂｏｏｋが入っているフォルダアドレスは変動しますので、自動取得できるようにしていただけると助かります。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/807

808: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/20(金) 00:43:19.56 >>807 コピペだけを「使える」とは言わない Dim path As String Dim ws1 As Worksheet Dim wb As Workbook Dim ws2 As Worksheet With ThisWorkbook 　path = Dir(.path & "\請求書\*.xls") 　Set ws1 = .Worksheets("請求一覧") End With Do While path <> "" 　Set wb = Workbooks.Open(path) 　set ws2 = wb.Sheets("Sheet1") 　ws2.Range("a2:k" & ws2.Cells(Rows.Count, 1).End(xlUp).Row).Copy ws1.Range("a" & ws1.Cells(Rows.Count, 1).End(xlUp).Row + 1) 　End With 　wb.Close (False) 　path = Dir() Loop http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/808

809: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/20(金) 00:45:43.06 下から4行目のEnd withはゴミ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/809

---

上下前次1-新書関写板覧索設栞歴

---

あと 193 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.012s