Excel VBA質問箱 IV

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

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


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

5784 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【48851】隣の列の個数分オートフィルしたい にゃこ 07/5/11(金) 17:38

【48854】Re:隣の列の個数分オートフィルしたい ウッシ 07/5/11(金) 18:38

【48856】Re:隣の列の個数分オートフィルしたい Kein 07/5/11(金) 19:21

【48881】Re:隣の列の個数分オートフィルしたい にゃこ 07/5/14(月) 10:18

【48884】Re:隣の列の個数分オートフィルしたい にゃこ 07/5/14(月) 12:49

【48885】Re:隣の列の個数分オートフィルしたい Jaka 07/5/14(月) 13:14

【48888】Re:隣の列の個数分オートフィルしたい ウッシ 07/5/14(月) 13:59

【48889】Re:隣の列の個数分オートフィルしたい Kein 07/5/14(月) 14:19

【48895】グラフに・・・ にゃこ 07/5/14(月) 15:59

【48896】Re:グラフに・・・ ウッシ 07/5/14(月) 16:06

【48898】Re:グラフに・・・ にゃこ 07/5/14(月) 17:46


	【48851】隣の列の個数分オートフィルしたい

にゃこ - 07/5/11(金) 17:38 -


	引用なし

	パスワード

どなたか教えていただきたいのですが。
Ａ列にＡ１からＡｎまで複数個データがあるとき、Ｂ１に"b1"と入力して、それをＡ列のデータの個数分オートフィルさせたいのですが、どのように書いたらいいのでしょうか？
よろしくお願いします。


	【48854】Re:隣の列の個数分オートフィルしたい

ウッシ - 07/5/11(金) 18:38 -


	引用なし

	パスワード

こんばんは

「"=B1"」ではないですよね？
循環参照になってしまいます。

「B1」として、

Sub test()
　　With Range("A1", Range("A65536").End(xlUp)).Offset(, 1)
　　　　.Formula = "=""B""&ROW()"
　　　　.Value = .Value
　　End With
End Sub


	【48856】Re:隣の列の個数分オートフィルしたい

Kein - 07/5/11(金) 19:21 -


	引用なし

	パスワード

同じく数式を入力するコードですが。

Sub test2()
　 With Range("A1", Range("A65536").End(xlUp)).Offset(, 1)
　　　.Formula = "=ADDRESS(ROW(),2,4,TRUE)"
　　　.Value = .Value
　 End With
End Sub


	【48881】Re:隣の列の個数分オートフィルしたい

にゃこ - 07/5/14(月) 10:18 -


	引用なし

	パスワード

ウッシさん、keinさん、ありがとうございました。
なんだかVBAが面白くなってきました。
もっと勉強してみようと思います。


	【48884】Re:隣の列の個数分オートフィルしたい

にゃこ - 07/5/14(月) 12:49 -


	引用なし

	パスワード

続けての質問ごめんなさい。

教えていただいた内容をもとに、横向きで試してみたのですが、とりあえず思うように動いたのですが、正しいのかどうか不安でして．．．
見ていただいてよろしいでしょうか。

Ａ２から？２までの行にデータが入力されている時、Ａ１から？１まで、"a1"から連番を記入したい、という内容です。

Sub てす()
　　
　　Range("A2").Select
　　ActiveCell.FormulaR1C1 = "a1"
　　Selection.AutoFill Destination:=Range("A2",Range("IV2").End(xlToLeft)).Offset(-1, 0), _
　　Type:=xlFillDefault

End Sub

これだと、前に教えていただいた「.Value = .Value」というのが無いのですが、これは必要なんでしょうか？

どうかよろしくお願いします。


	【48885】Re:隣の列の個数分オートフィルしたい

Jaka - 07/5/14(月) 13:14 -


	引用なし

	パスワード

>これだと、前に教えていただいた「.Value = .Value」というのが無いのですが、これは必要なんでしょうか？
.Value = .Value は、
エクセル関数をいれて、それをコピー値だけペースト見たいな事をしているだけです。（ちょっと違うけど）
私なら、連番ならにゃこさんがかかれた方法を使います。
これの方が断然速いです。
Selection.AutoFill Destination

>Sub てす()
>　　Range("A2").Select
　　　　　　↑Ａ１の間違いじゃないですか？
>　　ActiveCell.FormulaR1C1 = "a1"

ちょっと、まとめると
With Range("a1")
　 .Value = "a1"
　 .AutoFill Destination:=Range("A2", Range("IV2").End(xlToLeft)).Offset(-1, 0), _
　　　　Type:=xlFillDefault
End With


	【48888】Re:隣の列の個数分オートフィルしたい

ウッシ - 07/5/14(月) 13:59 -


	引用なし

	パスワード

こんにちは

本当に連番なんですね。
単なる例かと思ってました。連番なら「AutoFill」でいいですね。

「.Value = .Value」は数式を値に代えてるので「AutoFill」の場合は不要です。

ただ単純な連番以外の処理では数式をセットし「.Value = .Value」する方法はとても有効です。


	【48889】Re:隣の列の個数分オートフィルしたい

Kein - 07/5/14(月) 14:19 -


	引用なし

	パスワード

AutoFill が一般的ですが、Dataseries も使えます。

Sub Test()
　 Range("A2").Value = "A1"
　 Range("A2", Range("IV1").End(xlToLeft).Offset(1)) _
　 .DataSeries xlRows, xlAutoFill
End Sub

.Value = .Value というのは「そのセルの中身を数式の結果でなく、値のみにしろ」
・・ぐらいの意味です。Copy して PasteSpecial xlPasteValues した場合と
同じになりますが、記述が簡単で済むのでよく使います。
ただし、コピーに比べてメモリーの消費量が多くなるので、あまり大きいセル範囲
に対しては使わない方が無難です。もっとも今どきのPCの性能なら、殆ど気にする
ほどのことは無いかも知れませんが。


	【48895】グラフに・・・

にゃこ - 07/5/14(月) 15:59 -


	引用なし

	パスワード

Jakaさん、ウッシさん、Keinさん、丁寧なご説明ありがとうございました！
すごくよく分かりました！

それから、申し訳ないのですが、最後にあと１つだけ教えていただいてもいいでしょうか？
今までの結果をグラフにしてみようとしてるのですが、うまくいかないです。
下のやり方で、「＊＊＊＊」にデータの右下を入れられればいいと思うのですが．．．

　　Charts.Add
　　With ActiveChart
　　ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
　　　　.SetSourceData Source:=Sheets("nya"). _
　　　　 Range("A1:＊＊＊＊"), PlotBy:=xlColumns
　　　　.PlotArea.Select
　　　　.Location Where:=xlLocationAsNewSheet
　　　　.PlotArea.Select
　　　　.ChartType = xlXYScatterSmoothNoMarkers
　　End With

xlToLeftとxlUpをどうにか組み合わせれば出来るのかもしれませんが、どうにも行き詰ってます。
UsedRangeというのもあるみたいですが難しくて・・・

すみませんがもう１度ご教授お願いします。


	【48896】Re:グラフに・・・

ウッシ - 07/5/14(月) 16:06 -


	引用なし

	パスワード

こんにちは

セルA1から
>データの右下
までに空白行、空白列が無ければ、

Source:=Sheets("nya"). _
　　　　 Range("A1").CurrentRegion


	【48898】Re:グラフに・・・

にゃこ - 07/5/14(月) 17:46 -


	引用なし

	パスワード

ウッシさんありがとうございます！

CurrentRegionはデータのあるセルを選んでから、その後に付けるんですね。
Rangeのカッコに一緒に入れちゃったりしてましたw

基本の構造をもっとちゃんと覚ないといけないですね。

何度もすみませんでした。
ありがとうございました。


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

5784 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free