[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
799(1): 2019/09/19(木)18:15 AAS
Ａ列〜Ｊ列に空白のセルがあれば、そのセルの１つ上のセルをコピーする
（Ａ列の最終行まで繰り返す）ができるコードを教えてください。
＊１行目と２行めは必ず値が入っています
800: 2019/09/19(木)20:02 AAS
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
省5
801(1): 2019/09/19(木)20:05 AAS
最初のwithの後ろのcolumns(1)を
range("a1:j200")みたいに操作したい範囲にすれば良いはず
802: 2019/09/19(木)20:19 AAS
>>801
できました。ありがとうございます
803(1): 2019/09/19(木)21:12 AAS
>>799
もう1列使えば、数式だけでいける
A列が元データで、B列が空白を埋めたデータの場合
b2に"=if(IsEmpty(a2),b1,a2)"を入力して下向きにフィル
804: 2019/09/19(木)21:20 AAS
>>803
>もう1列使えば
そういうの回答として無意味
805(1): 2019/09/19(木)22:18 AAS
https://dotup.org/uploda/dotup.org1948859.zip.html
このファイルでマクロを実行すると、自分の理解では「if k=3 and m=1 and Range(E10).Value <= m(=1)」となる瞬間が来て、、
Ｇ１０セルはＡになるはずなのですが、どうしてもすべてＢになります
どこが間違っているのでしょうか？
806: 2019/09/19(木)22:50 AAS
>>805
一度Aになったあと、ループが進んで次の瞬間にBに書き換えられてる
807(2): 2019/09/19(木)23:35 AAS
【1 OSの種類 .】 Windows１０
【2 Excelのバージョン 】 Excel２０１９
【3 VBAが使えるか .】 コピペだけできます。
【4 VBAでの回答の可否】 可
"元帳"というマクロを実行するＢｏｏｋの中に"請求一覧"というシートがあります
そしてそのＢｏｏｋ"元帳"と同じフォルダ内に、さらに"請求書"と言うフォルダがあり、その中に複数の.XLSファイルがあります。
その複数の.XLSファイルのそれぞれの"Sheet1"のA列〜K列の２行目から最終行（Ａ列）までをコピーして
シート"請求一覧"の最終行（Ａ列）に貼り付けて追加していくコードをおしえてください。
また、マクロを実行する"元帳"ｂｏｏｋが入っているフォルダアドレスは変動しますので、自動取得できるようにしていただけると助かります。
808(2): 2019/09/20(金)00:43 AAS
>>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
省8
809: 2019/09/20(金)00:45 AAS
下から4行目のEnd withはゴミ
810(1): 2019/09/20(金)13:07 AAS
>>808
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 <> ""
省10
811(2): 2019/09/20(金)19:24 AAS
>>810
pathの中身はファイル名で、Workbooks.Openでpathの前にフォルダパス付け忘れてるわ
812: 2019/09/20(金)19:47 AAS
>>811
正しいコードを教えてください
813: 2019/09/20(金)19:59 AAS
xlsxは圧縮されているので、速度的に複数ファイルの読み取りには向いてないと思うんすよ。
代わりにxmlが良いんじゃないかと思うんすけど、どうっすかねぇ?
そんなの気にするのは少数派?
814: 765 2019/09/20(金)21:21 AAS
>>768 の
> 2. 1つのbook内で複数のクエリーがある場合、シーケンシャルに更新できない。
について、どうやらそれらしい設定方法が分かったので報告。
各クエリーに設定される「接続のプロパティ (クエリ プロパティ)」のうち、
「バックグランドで更新する」
がデフォではONになっているので、
これをクエリーそれぞれで外せば、上から順番に計算しているっぽい。
https://i.imgur.com/K2oCmYx.png
メニューの「データ−クエリと接続−すべての更新▼」リボンボタンの中にある
「接続のプロパティ」からアクセス。
省4
815: 2019/09/21(土)07:00 AAS
サンクス
まず、うちのパソコンでエクセルを入れるとこからやってみるわ
816(1): 2019/09/21(土)12:42 AAS
>>685
ならそれを最初に書け
817: 685 2019/09/21(土)13:53 AAS
>>816
うるさい、このハゲ！
818: 2019/09/21(土)14:26 AAS
マクロでって言っているのにそれ以外の方法を示すのってなんなの？
上下前次1-新書関写板覧索設栞歴
あと 184 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.014s