Ｐａｇｅ 835 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼検索した値の引渡しについて ポリンキー 03/3/5(水) 13:30 ┗Re:検索した値の引渡しについて パピー 03/3/5(水) 14:49 ┗Re:検索した値の引渡しについて ポリンキー 03/3/5(水) 15:00 ┗Re:検索した値の引渡しについて パピー 03/3/5(水) 15:27 ┗Re:検索した値の引渡しについて ポリンキー 03/3/6(木) 10:56 ─────────────────────────────────────── ■題名 ： 検索した値の引渡しについて ■名前 ： ポリンキー ■日付 ： 03/3/5(水) 13:30 -------------------------------------------------------------------------
| 超初心者で2回目の投稿になります。初歩的な質問だと思いますが、よろしくお願いいたします。 下記のようなデータがあります。 A B C ・・・ ・・・ ＊START 3 ＊STEP 0.02 ＊STOP 100 ・・・ ・・・ A列に連続データを作成したいのですが、初期値は＊STARTの隣の値３で、 増分値が＊STEPの隣の値0.02、停止の値は＊STOPの隣の値100というように なっています。マクロの記録機能を使ったところ、 Range("A1").Select ActiveCell.FormulaR1C1 = "3" Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ Step:=0.02, Stop:=100, Trend:=False というようになっていました。初期値、増分値、終了値はデータごとに変わるので、 変数にしたいのですが、まずB列での文字列の検索の記述方法（.Findを使うと 思うのですが、マニュアルを見てもさっぱりわかりません。）と、検索して得た 値をどうやって代入すればよいのかわかりません。よろしくお願いいたします。 |
| ▼ポリンキー さん：こんにちは。 次の様に変更してテストをして確認してみました。 セルを直接指定すればＯＫでした。 Sub test() Range("A1").Select ActiveCell.FormulaR1C1 = Range("C2").Value Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ Step:=Range("C3").Value, Stop:=Range("C4").Value, Trend:=False End Sub |
| パピーさん、早速のお返事ありがとうございました。 データ例の書き方が悪かったのですが、・・・はデータが入っているという意味なんです。つまり、＊START,*STEP,*STOPはB列の何行目にあるのか決まっていません。 わかりにくくてどうもすみません。 したがってB列の中から文字列を検索して、その隣のC列から値を 得る必要があるのです。よろしくお願いいたします。 |
| パピーです。 失礼しました。 見落として理解していました。 Sub test2() Dim p1 As Range Dim p2 As Range Dim p3 As Range Set p1 = Range("B:B").Find("*START") Set p2 = Range("B:B").Find("*STEP") Set p3 = Range("B:B").Find("*STOP") Range("A1").Select ActiveCell.FormulaR1C1 = p1.Offset(, 1) Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ Step:=p2.Offset(, 1), Stop:=p3.Offset(, 1), Trend:=False End Sub |
| 初歩的な質問なのに、ご丁寧に教えていただきましてどうもありがとうございました。 .Find、変数の書き方、Offsetなど勉強になりました。 |