Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

150 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【79464】Re:セル内の改行されている行を指定した...

マナ - 17/10/24(火) 19:42 -


	引用なし

	パスワード

▼あみさん：
>セル内の改行されている行を指定して編集したいのですが中々できません。

具体的にどんな編集をしたいか例をあげることは可能でしょうか。
あと、参考までに、どんなコードを試してみたかも教えてください。

・ツリー全体表示


	【79463】セル内の改行されている行を指定したいで...

あみ - 17/10/24(火) 19:26 -


	引用なし

	パスワード

セル内の改行されている行を指定して編集したいのですが中々できません。
助けていただけたら嬉しいです。

例：セル内の2行目の行を指定
　　セル内の最後の行を指定

よろしくお願いいたします。

・ツリー全体表示


	【79462】Re:オートフィルターをかけたデータにオ...

マナ - 17/10/24(火) 18:56 -


	引用なし

	パスワード

▼HNKYOTO さん：

>Ｂ列で選択したＣ列のセルのみ計算式が入るようにする方法がないでしょうか。

すでに、回答したつもりですが…

・ツリー全体表示


	【79461】Re:オートフィルターをかけたデータにオ...

HNKYOTO

- 17/10/24(火) 9:13 -


	引用なし

	パスワード

すいません。
どうもうまくいきません。
実際には下記のようなコードを書いています。

　　Selection.AutoFilter Field:=2, Criteria1:="2"
　　Range("C1").Select
　　ActiveCell.FormulaR1C1 = "=""0""&RC[-2]"
　　Range("C1").AutoFill Destination:=Range("C1:C" & Range("A5000").End　　　　(xlUp).Row)
　　
　　Selection.AutoFilter Field:=2, Criteria1:="3"
　　Range("C1").Select
　　ActiveCell.FormulaR1C1 = "=RC[-2]"
　　Range("C1").AutoFill Destination:=Range("C1:C" & Range("A5000").End　　　　(xlUp).Row)
　　Selection.AutoFilter Field:=4

これですと、Ｂ列の選択値を３に変更してＣ列の計算式をオートフィルすると
Ｂ列の選択値にかかわらずＣ列の計算式が全て上書きされてしまいます。
Ｂ列で選択したＣ列のセルのみ計算式が入るようにする方法がないでしょうか。

・ツリー全体表示


	【79460】Re:列方向のオートフィル

HNKYOTO

- 17/10/24(火) 8:57 -


	引用なし

	パスワード

Range("A1:A2").AutoFill Destination:=Range("A1", Range("A3").End(xlToRight).Offset(-1))

行けました！
ありがとうございました。

・ツリー全体表示


	【79459】Re:２枚目のシートの特定のセルの値を違...

マナ - 17/10/23(月) 23:23 -


	引用なし

	パスワード

▼初心者XXXXYYYY さん：

１）新規ブックを作成
２）名前を付けて保存

この操作を「マクロの記録」してみてください。
次に、記録されたマクロを実行してみてください。

・ツリー全体表示


	【79458】Re:列方向のオートフィル

マナ - 17/10/23(月) 23:16 -


	引用なし

	パスワード

▼HNKYOTO さん：
>すいません。
>回答を間違えました。

了解です

>Range("A1:B2").AutoFill Destination:=Range(("A3"), Range("A3").End(xlToRight)).Offset(1)
>

最初からコードを提示していただけたら
誤解なく、ピンポイントで回答できます。

こうでしょうか。

Range("A1:A2").AutoFill Destination:=Range("A1", Range("A3").End(xlToRight).Offset(-1))

・ツリー全体表示


	【79457】Re:２枚目のシートの特定のセルの値を違...

初心者XXXXYYYY - 17/10/23(月) 23:14 -


	引用なし

	パスワード

▼マナさん：
>▼初心者XXXXYYYY さん：
>
>ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(i, 1) & ".xlsx", FileFormat:= xlOpenXMLWorkbook
>
>後ろに
>
>＞　, FileFormat:= xlOpenXMLWorkbook
>
>を追加するとどうなりますか。

先ほどと変わらないです。

・ツリー全体表示


	【79456】Re:列方向のオートフィル

マナ - 17/10/23(月) 22:35 -


	引用なし

	パスワード

▼HNKYOTO さん：

落ち着いて説明してください。
全く理解できません。

最初の質問では、こういうことかと思いましたが…
違いますか。
オートフィルは使っていません。

Sub test()
　　Dim r As Range
'
　　Set r = Range("A3", Range("A3").End(xlToRight))
　　
　　r.Offset(-2).Formula = "=B1+C1"
　　r.Offset(-1).Formula = "=B1-C1"
　　　　　　　
End Sub

・ツリー全体表示


	【79455】Re:列方向のオートフィル

HNKYOTO

- 17/10/23(月) 22:31 -


	引用なし

	パスワード

すいません。
回答を間違えました。

これも
Range("A1:B2").AutoFill Destination:=Range(("A3"), Range("A3").End(xlToRight)).Offset(1)

でやろうとしたのですが、うまくいきませんでした。
まだまだ初心者です。
アドバイスをお願い致します。

・ツリー全体表示


	【79454】Re:列方向のオートフィル

HNKYOTO

- 17/10/23(月) 22:24 -


	引用なし

	パスワード

普通にＣ列の始点と終点を指定してオートフィルを掛けるとＢ列の選択数値を変更してＣ列に別の数式を入力して同じようにオートフィルを掛けた場合、Ｃ列の全ての計算式が書き換わってしまいます。

Range("C1").AutoFill Destination:=Range("C1:C" & Range("A5000").End(xlUp).Row)

これをＢ列の１，２，３それぞれの選択時にＣ列に３種類の計算式を入力したいです。

・ツリー全体表示


	【79453】Re:列方向のオートフィル

マナ - 17/10/23(月) 21:50 -


	引用なし

	パスワード

▼HNKYOTO さん：

>上記の様なデータがあり、A1:B2 を選択してそのまま３行目の最終データ入力セルまでオートフィルをかけたいのですが、どなたか良い方法をアドバイスお願い致します。

何が問題なのですか？

・ツリー全体表示


	【79452】Re:オートフィルターをかけたデータにオ...

マナ - 17/10/23(月) 21:45 -


	引用なし

	パスワード

▼HNKYOTO さん：

オートフィルではありませんが

Sub test()

　　With Range("a1").CurrentRegion
　　　　.AutoFilter
　　　　.AutoFilter 2, 3
　　　　Intersect(.Offset(1), .Columns(3)).FormulaR1C1 = "=112&rc[-2]"
　　　　.AutoFilter
　　End With
　　　　　　　
End Sub

・ツリー全体表示


	【79451】列方向のオートフィル

HNKYOTO

- 17/10/23(月) 21:32 -


	引用なし

	パスワード

　　 A　　　 B　　　C　　　D　　.....
1　=B1+C1　=C1+D1
2　=B1-C1　=C1-D1　
3　　OK　　　NG　　OK　　 NG　　.....
4
5
.
.
.

上記の様なデータがあり、A1:B2 を選択してそのまま３行目の最終データ入力セルまでオートフィルをかけたいのですが、どなたか良い方法をアドバイスお願い致します。

・ツリー全体表示


	【79450】オートフィルターをかけたデータにオート...

HNKYOTO

- 17/10/23(月) 21:15 -


	引用なし

	パスワード

　 A　　B(オートフィルター）　 C
1　101　　　　　2　　　　　 ="112"&(A1)
2　201　　　　　2　　　　　　　↓
3　303　　　　　2　　　　　オートフィル
4　404　　　　　2
.　 .　　　　　　.
.　 .　　　　　　.
.　 .　　　　　　.

上記の様なデータがありＢ列には「２」以外に「１」や「３」が存在します。
Ｂ列のそれぞれの選択数値に対してＣ列に別々の計算式を入力しオートフィル
をかけたいのですがなかなかうまくいきません。

どなたかアドバイスをお願い致します。

・ツリー全体表示


	【79449】Re:２枚目のシートの特定のセルの値を違...

マナ - 17/10/23(月) 20:58 -


	引用なし

	パスワード

▼初心者XXXXYYYY さん：

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(i, 1) & ".xlsx", FileFormat:= xlOpenXMLWorkbook

後ろに

＞　, FileFormat:= xlOpenXMLWorkbook

を追加するとどうなりますか。

・ツリー全体表示


	【79448】Re:２枚目のシートの特定のセルの値を違...

初心者XXXXYYYY - 17/10/23(月) 19:30 -


	引用なし

	パスワード

▼マナさん：
>▼初心者XXXXYYYY さん：
>
>>ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(i, 1) & ".xlsx"
>>上の行で進まなくなってしまいます。
>
>エラーですか？
>どんなメッセージですか。

実行時エラー'1004';
アプリケーション定義またはオブジェクト定義のエラーです。

上メッセージが表示されてしまいます。

・ツリー全体表示


	【79447】Re:シート上で、複数合計をだす

ノンボ

- 17/10/22(日) 16:25 -


	引用なし

	パスワード

▼γ さん：
>説明ありがとうございました。
>
>であれば、私の提示したtest2はNGでしょう。
>Areasの2番目はA店舗に該当するでしょうから。
>
>データのありようはこちらからは見えません。
>あなたは当然と思っていても、こちらからは見えません。
>最初から簡単なレイアウトを示してもらえば一目瞭然で、双方の手間は省けます。
>今後、色々なところで質問をされると思いますが、配慮して下さい。
γさん
　test2はうまくいきませんでしたが、大変参考になっています。ありがとうございました。今度質問するときは、レイアウトをしめして、質問するようにします。ちゃんと配慮するように心がけます。大変勉強になりました。ありがとうございました。

・ツリー全体表示


	【79446】Re:シート上で、複数合計をだす

γ - 17/10/22(日) 12:27 -


	引用なし

	パスワード

説明ありがとうございました。

であれば、私の提示したtest2はNGでしょう。
Areasの2番目はA店舗に該当するでしょうから。

データのありようはこちらからは見えません。
あなたは当然と思っていても、こちらからは見えません。
最初から簡単なレイアウトを示してもらえば一目瞭然で、双方の手間は省けます。
今後、色々なところで質問をされると思いますが、配慮して下さい。

・ツリー全体表示


	【79445】Re:シート上で、複数合計をだす

ノンボ

- 17/10/22(日) 7:39 -


	引用なし

	パスワード

▼γ さん：
>無駄な全文引用はしないようにしてください。
>
>そして、
>>そもそも、特別なことがなぜ最初のA店舗にだけ発生しているのか。
>といった事に対する説明はいただけないのですか？
>またいくつか提案もしています（式を埋め込む等）。
>これらについてもあなたの感想、考えなどを書いてもらいたいですね。

　γさん、お世話になります。
大変説明不足でもうしわけありません。Ａ店舗だけ品目集計を行うのは、Ａ店のみ品目すうが非常に多いためです。（店舗様の要望もあります。）提案いただきました、式の埋め込みなどは、自分にはわからないことでしたので、とても勉強になりました。例題をいくつもいただきましてほんとうにありがとうございます。大変助かりました。ありがとうございました。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

150 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free