Windows VistaでExcel2007を使用しています。
「コメント挿入」をするとき、いつも枠内に自分の名前が太文字で、フォントサイズが9で表示されます。その度に太文字を解除し、名前を削除し、フォントサイズを変更しています。
これを、枠内に何も記入されていない状態で、太文字が解除されていて、フォントサイズ10に設定の変更をしたいのです。
その方法を教えてください。よろしくお願いいたします。
rangeオブジェクト型変数にセル範囲を代入した後、一部のセルを解除したいのです。
グラフを描くためにc列とE列をデータに散布図を描こうとしてます。セル範囲の選択はrange型変数に代入しました。しかしゼロ以下の値のセルは削除したいのです。
for each c in datacell
if c.value <0 then c.value=""
next c
上記のようにすると目的は達しますが、ワークシート上の値も削除されてしまい、好ましくありません。良い方法はないでしょうか？
下記プロシージャでグラフを書こうとしてますが、動作が安定しません。
マクロは別ワークブックに書き、データを収めたワークブックを開きC列とD列で散布図を描きます。埋め込みで描こうとしてます。
Sub test()
Dim xdata, ydata, DSname As String
Dim maxRow As Long
maxRow=Range("A6500").End(xlUp).Row
DSname=ActiveSheet.Name
xdata="C1:C" & maxRow
ydata="D1:D" & maxRow
Charts.Add
With ActiveChart
.ChartType=xlXYScatter
.SeriesCollection(1).XValues=Worksheets(DSname).Range(xdata) 'この行で動作不安定
.SeriesCollection(1).Values=Worksheets(DSname).Range(ydata)
.Location Where:=xlLocationAsObject, Name:=DSname
End With
With ActiveChart
.HasTitle=False
'以降は質問と関係ないので省略
End With
End Sub
注：コピー＆ペーストでなく手打ちなので、スペルミスがあるかもしれません。
動作不安定と書いた行でストップします。
エラーメッセージ
実行時エラー '1004' 'SeriesCollection'メソッドは失敗しました
常にエラーになるのではなく、正常終了することもあります。不安定と書いたのはこのためです。
１ マクロ実行時に空欄のセルが選択されている場合：エラー
２ マクロ実行時に空欄でないセルが選択されている場合：正常終了
どうすれば安定するでしょうか？
下記VBAでResultsを反映する（更新）するのは、
空白セルだけにするのは、どうすれば良いのでしょうか。
（※参考：http://myrtus21.com/blog/2007/06/vbavlookup.html）
1日かけてトライしていますが、打開できません。
どなたかご教授願います。
どうかよろしくお願いいたします。
Sub 在庫数検索()
Dim SerchName As String
Dim SerchArea As Range
Dim Results As Variant
'初期設定
Range("A2").Activate
ItemCode = Range("A2").Value
i = 0
'検索範囲の設定（ポイント1）
Set SerchArea =Worksheets("シート2").Range("List1")
'商品コードが空になったら終わり
Do Until ItemCode = ""
'エラーになっても続行する（ポイント2-1）
On Error Resume Next
'商品コードに該当するデータを探し、Resultsに入れる
ItemCode = ActiveCell.Offset(i, 0).Value
Results =Application.WorksheetFunction.VLookup(ItemCode, SerchArea, 2, False)
'該当するデータがないとエラーになるための処理、エラーなら空欄にする（ポイント2-2）
If Err <> 0 Then Results = ""
ActiveCell.Offset(i, 1) = Results
i = i + 1
Loop
End Sub
