[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
790: 788 2019/09/17(火)21:46 AAS
>>789
ありがとうございます<(_ _)>
791: 2019/09/17(火)23:33 AAS
>>725
そうなんだけどね、シートに書き出したデータをもう一度テーブルとして使う時に、
範囲指定が必要になる場合があるんですよ。
792(2): 2019/09/18(水)00:36 AAS
自動的にセル名を定義する方法はありますか。
例えばA1セルに「野菜」と入力したら、
自動的にA1：A10の範囲が「野菜」セルと
してセル名設定され、A1を「果物」変更
するとセル名も自動で変わるようにしたいです。
793: 2019/09/18(水)13:09 AAS
ブックAのシート1〜iまでのA1セルの数字を合計した数字をブックBのA1セルに転記したいです
vbaでなんとかならないでしょうか？
794: 2019/09/18(水)16:27 AAS
なんとかなります
795(1): 2019/09/18(水)18:57 AAS
Ｄ２〜Ｇの４列中に含まれる"株式会社"・"有限会社"・"支店"を消す下の構文を作ったのですが
効果が同じシートの全てのセルに適応されてしまいます。Ｄ〜Ｇの範囲内に収めるにはどう書くのが正しいのでしょうか
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:=""
796(2): 2019/09/18(水)19:30 AAS
>>792
VBAでできる
>>795
Cells.は全選択という意味
選択範囲はSelection.
797: 796 2019/09/18(水)19:39 AAS
>>796
勉強になりました ありがとうございます
798: 2019/09/18(水)20:31 AAS
>>796
>>792です
VBAじゃないと無理なんですね、ありがとうございました。
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はゴミ
上下前次1-新書関写板覧索設栞歴
あと 193 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.012s