Excel VBA質問箱 IV

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

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


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

28237 / 76732

←次へ　｜　前へ→


	【53798】Re:取得した変数を全てセルに表示させるには？

VBWASURETA - 08/2/7(木) 17:32 -


	引用なし

	パスワード

▼かおりさん：
こんにちは。

見た感じから多分予測してましたが、
念のために、以下のソースをデバックして見せて頂きました。
(これ前回質問されてますよね？その続きとか書いておいた方が良いですよ。グラフ作るのにちょっと時間掛かりました＾＾；)

>Sub 作成中()
>
>Dim co As ChartObject
>Dim pp As Point
>Dim DT As Variant
>Dim bunrui As String　'ラベルの値を格納
>Dim suuchi As String　'パーセントの値を格納
>
>Set co = ActiveSheet.ChartObjects("グラフ 8") '任意のグラフを指定
>co.Activate
>　　For Each pp In co.Chart.SeriesCollection(1).Points
>　　　　DT = Split(pp.DataLabel.Caption, vbLf)　'改行でラベルの文字列を分割
>　　　　bunrui = DT(0)
>　　　　suuchi = DT(1)
>　　　　　　　
>　　　　Range("A265").Select　'抽出した文字列を表示するセルの場所を指定
>　　　
>　　　If bunrui <> "" Then
>　　　　Do
>　　　　　　ActiveCell.FormulaR1C1 = bunrui
>　　　　　　ActiveCell.Offset(1, 0).Select
>　　　　　　ActiveCell.FormulaR1C1 = suuchi
>　　　　　　ActiveCell.Offset(-1, 1).Select
>　　　　Loop Until bunrui <> ""
>　　　End If
>　　Next
>　　
>End Sub

で、問題は

>　　　　Range("A265").Select　'抽出した文字列を表示するセルの場所を指定

これです。
固定の位置になってますから全部上書きされます。

ここでずれてるイメージだったかも知れませんが

>　　　　　　ActiveCell.FormulaR1C1 = bunrui
>　　　　　　ActiveCell.Offset(1, 0).Select
>　　　　　　ActiveCell.FormulaR1C1 = suuchi
>　　　　　　ActiveCell.Offset(-1, 1).Select

ここは同じセルを上下されているだけです。

横にずらせれば見えるはずなので

>　　　　Range("A265").Select　'抽出した文字列を表示するセルの場所を指定

を

　　　　Y = Y + 1
　　　　ActiveSheet.Cells(265, 1 + Y).Select '抽出した文字列を表示するセルの場所を指定

にするだけで見れると思いますよ。

0 hits

▼

【53795】取得した変数を全てセルに表示させるには？ かおり 08/2/7(木) 16:30