Excel VBA質問箱 IV

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

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


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

56493 / 76738

←次へ　｜　前へ→


	【24997】Re:散布図の系列について

Kein - 05/5/17(火) 10:25 -


	引用なし

	パスワード

まとめてすっきりさせると、こんなコードになります。(コードはソースコードの意味)
処理の順序を直したり、無駄を省いたりするのが編集です。編集がちゃんと出来る
ようになって、初めて中級へと進めます。頑張ってください。

　　Dim r As Long
　　Dim PltR As Range
　　Dim Mfile As String, mf As String
　　
　　mf = InputBox("ファイル名を入力してください")
　　If mf = "" Then Exit Sub
　　Mfile = Mid(FName, 29, 11)
　　r = Range("G65536").End(xlUp).Row
　　With Sheets(Mfile)
　　　 Set PltR = Union(.Range("G47:G" & r), .Range("J47:J" & r))
　　End With
　　With Charts.Add
　　　　.ChartType = xlXYScatter
　　　　.SetSourceData Source:=PltR, PlotBy:=xlColumns
　　　　.HasTitle = True
　　　　.ChartTitle.Characters.Text = mf
　　　　.HasLegend = False
　　　　With .Axes(xlCategory)
　　　　　 .HasTitle = True
　　　　　 .AxisTitle.Characters.Text = "potential[V]"
　　　　　 With .MajorGridlines
　　　　　　　.ColorIndex = 57
　　　　　　　.Weight = xlHairline
　　　　　　　.LineStyle = xlDot
　　　　　 End With
　　　　End With
　　　　With .Axes(xlValue)
　　　　　 .HasTitle = True
　　　　　 .AxisTitle.Characters.Text = "current density[mA/g]"
　　　　End With
　　　　With .PlotArea
　　　　　 With .Border
　　　　　　　 .ColorIndex = 1
　　　　　　　 .Weight = xlMedium
　　　　　　　 .LineStyle = xlContinuous
　　　　　 End With
　　　　　 With .Interior
　　　　　　　 .ColorIndex = 15
　　　　　　　 .PatternColorIndex = 1
　　　　　　　 .Pattern = xlSolid
　　　　　 End With
　　　　End With
　　　　.Location Where:=xlLocationAsObject, Name:=Mfile
　　End With
　　Set PltR = Nothing

0 hits

▼

【24971】散布図の系列について みぽりん 05/5/16(月) 13:11