下記のようなコードを書きたいのですが「オブジェクトが必要です」というエラーが
出力されてしまいできないようです。何か代替案はありますでしょうか。
---
dim ws as worksheet
with thisworkbook
for each ws in array(.worksheets(1),.worksheets(2),.worksheets(3))
with ws
'ここに処理を書く
end with
next ws
end with
---
ちなみにこのbookにある全てワークシートで処理を回したいわけではなく
特定のシートのみで処理をしたいです。
エクセル2003です。
よろしくお願いします。
ＶＢＡ初心者です。
設定、部品1、部品2、部品3、部品4と4つのシートがあります。
設定シートにオールクリアボタンを設置し各シートの値だけをクリアする
ようにしたいのですが、「subまたはfunctionが定義されていません」という
エラーが出てしまいます。
間違ってる箇所とうまくいく方法を教えていただけませんでしょうか?
記述は以下のとうりです。
ちなみにエクセルを開くと全シート保護という設定にしているので
まずその解除をしてオールクリアしてまた保護といううふうにしたいです。
Private Sub CommandButton1_Click()
'全シート保護解除
Dim sh As Worksheet
For Each sh In Worksheets
sh.Unprotect
Next sh
'範囲選択
With Worksheet("部品1").Select
Cells.Select
'シートの値だけをクリアする
Selection.SpecialCells(xlConstants, 23).ClearContents
End With
'範囲選択
With Worksheet("部品2").Select
Cells.Select
'シートの値だけをクリアする
Selection.SpecialCells(xlConstants, 23).ClearContents
End With
'範囲選択
With Worksheet("部品3").Select
Cells.Select
'シートの値だけをクリアする
Selection.SpecialCells(xlConstants, 23).ClearContents
End With
'範囲選択
With Worksheet("部品4").Select
Cells.Select
'シートの値だけをクリアする
Selection.SpecialCells(xlConstants, 23).ClearContents
End With
'全シート保護
For Each sh In Worksheets
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next sh
End Sub
以上です、よろしくお願いします。
過去に2度、Excel2003を利用して工事写真帳を作成する方法を質問させていただきました。最近、社内でExcel2010を使用している人が多くなり、修正した写真帳でも不具合が発生するようになり、その原因を調べているのですが同じ症例がなかなか見当たりません。そこで今回もまたお知恵を拝借したいと思い投稿しました。
【仕様】工事写真帳は複数シート構成、1シートはA4サイズで縦に3枚の画像が読み込めます。画像の右側には摘要欄があります。画像を読み込む位置をダブルクリックするとセルのサイズ（写真サイズにしてあります）を取得して画像サイズを変更して格納します。
【問題点】一度保存したファイルを開くと画像がぼける。図の書式設定の[サイズ]を確認すると、サイズと角度の高さ=9.59cm、幅=13.69cm（読み込むセルのサイズ）、原型のサイズの高さ=0.38cm、幅=0.42cmとなっています。元の画像サイズは640×480なので、マクロを実行中、どこかのタイミングで画像の一部をトリミングし、縦横サイズを小さくした画像をセルサイズにまで拡大していることが原因だということまではわかりました。ただ、すべてのシートがこの状態なわけではなく、正常に表示されているシートもあります。この場合も画像のサイズと角度の高さ=9.59cm、幅=13.69cm（読み込むセルのサイズ）、原型のサイズの高さ=9.59cm、幅=13.69cmと元の画像より小さくなっています。
コードは次の通りです。どこに問題があるか、ぜひアドバイスをお願いします。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim pict As Shape
Dim fname
With Target
If .Column <> 3 Then Exit Sub '3列目でなかったら終了
fname = Application.GetOpenFilename _
("画像ファイル,*.gif;*.jpg;*.bmp", 1, "画像ファイルを指定して下さい") '画像読込
If fname = False Then Exit Sub
Set pict = sh.Shapes.AddPicture(Filename:=fname, linktofile:=True, _
SaveWithDocument:=True, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
pict.LockAspectRatio = False '指定された図形のサイズ比率を保持しない
pict.Placement = xlMove 'オブジェクトをセルと共に移動する
.Offset(, 3).Select '摘要欄（右へ3）へ移動
End With
End Sub
エクセルの
Worksheet_SelectionChangeイベントで
---------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "$A$1です"
End If
End Sub
---------------------------------------------------------
のコードを標準モジュールに書いて、Ａ１セルをクリックすると、MsgBoxが表示させますが、
Ｂ１セルから、キーボードの「→」キーを押してＡ１に移動してもMsgboxが表示されてしまいます。
クリックした時はマクロを発動させたいのですが、カーソルを動かしたときは発動させたくありません。
そんな事は可能でしょうか？
過去の回答を参考にエクセルでＷＥＢ画面をすべて選択しエクセルの所定のセルに貼り付けするマクロを作成しました。処理を追加していった結果、下記のようなマクロが完成しました。ステップインで動作確認できましたが、マクロ実行から動かすと途中で止まります。
止まる箇所は、
While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True
DoEvents
Wend
DoEvents
この記述でＷＥＢが遅く開く時に対応するよう作成しましたが、ここで止まります。（抜け出せません）
また、この記述を削るとステップインではうまく動きますが、マクロの実行から動かすと何回目かで
objIE.ExecWB 17, 0
すべて選択するときに止まります。
どこが悪いのか教えていただけないでしょうか？
使用、作成したのは、excel2007 及びexcel2010です。どちらでも動きません。
よろしくお願い致します。
Sub test()
Dim URL As String
Dim URL2 As String
Dim URL3 As String
Dim CD As String
Dim i As Integer
For i = 1 To 199
CD = Worksheets("CD").Cells(i + 1, 1).Value
URL2 = "貼り付けたいＷＥＢのＵＲＬ"
URL3 = CD ’縦一列にコードを入力しているシート
URL = URL2 & URL3
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.navigate URL
While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True
DoEvents
Wend
DoEvents
objIE.ExecWB 17, 0
objIE.ExecWB 12, 0
Sheets.Add
ActiveSheet.Name = 199 - i
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML"
objIE.Quit
Set objIE = Nothing
Next
End Sub
よろしくお願いいたします。
EXCEL2003で回転する円を描こうと思いました。
下の関数 Sub CommandButton1_Click() で描いた円を、さらにその下の関数
Sub Circle_Draw() で回転させました。
最初 Circle_Draw() に DoEvents を入れなかったときは円が全く動かなかったの
ですが、入れたら動き出しました。
ただ、ときどき円の動きが止まってしまうことがあります。動きもギザギザ感
があります。
円を滑らかに動かすことはどうやったらできるのでしょうか。
Sub CommandButton1_Click()
ActiveSheet.Shapes.AddShape(msoShapeOval, 420, 300, 48#, 48#).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Selection.Name = "En"
End Sub
Sub Circle_Draw()
Dim XO, YO, XP, YP, Pai, W As Double
XO = 420: YO = 310: R = 250
Pai = 3.141593
K = 2048: W = 0.02
For ii = 1 To 2
For i = 0 To K
Call WaitTM(W)
XP = XO + R * Cos((i / K * 2 + 0.5) * Pai)
YP = YO - R * Sin((i / K * 2 + 0.5) * Pai)
With ActiveSheet.Shapes("En")
.Left = XP
.Top = YP
End With
DoEvents
Next i
Next ii
End Sub
Public Sub WaitTM(waitTime As Variant)
Sleep waitTime
End Sub
