現在下記のようなコードでテストしています。
Sub Sample()
Dim TargetBook As Workbook
Set TargetBook = Workbooks.Open("Book2.xls")
TargetBook.Sheets("Sheet1").Cells(1, 5) = Cells(1, 1)
TargetBook.Close
End Sub
Book2を開いてセルの読み書きはテストできました。
これをBook2をopenせず閉じた状態で操作したいと思っています。
Workbooksの表示されるメソッドを色々試してみますが出来ません。
OpenDatabaseが使用できるのかと思いますが、出来ません。
ご指導よろしくお願いします。
現在下記のようなコードでテストしています。
Sub Sample()
Dim TargetBook As Workbook
Set TargetBook = Workbooks.Open("Book2.xls")
TargetBook.Sheets("Sheet1").Cells(1, 5) = Cells(1, 1)
TargetBook.Close
End Sub
Book2を開いてセルの読み書きはテストできました。
これをBook2をopenせず閉じた状態で操作したいと思っています。
Workbooksの表示されるメソッドを色々試してみますが出来ません。
OpenDatabaseが使用できるのかと思いますが、出来ません。
ご指導よろしくお願いします。
注文した際、カードの有効期限を間違えてしまい、訂正のメールをショップ宛に送りました。
下記ショップからの返信です。
大まかにしか分からず不安です。
どなたか英語に長けた方の翻訳をお願い致します。
Having located your account, I can see that your order has been put on hold. The reason being is that we were unable to gain authorisation of your card, which could due to the input of incorrect details. I have, therefore, re-entered your details with the correct expiry date. Your order is now being processed, and will be sent to the Warehouse. In the meantime, if we are unable to gain authorisation, we will contact you as soon as possible. If you do not hear from us, you will receive an email confirmation once your order has been despatched from our Warehouse.
現在下記のようなコードでテストしています。
Sub Sample()
Dim TargetBook As Workbook
Set TargetBook = Workbooks.Open("Book2.xls")
TargetBook.Sheets("Sheet1").Cells(1, 5) = Cells(1, 1)
TargetBook.Close
End Sub
Book2を開いてセルの読み書きはテストできました。
これをBook2をopenせず閉じた状態で操作したいと思っています。
Workbooksの表示されるメソッドを色々試してみますが出来ません。
OpenDatabaseが使用できるのかと思いますが、出来ません。
ご指導よろしくお願いします。
入力シートの4～2000行にデータをフォームを使って入力し、そのフォームを閉じる際に集計シートで集計する家計簿を作ってます。集計シートでは、食費・交際費などのコードがB5:B22に入っており、それぞれの合計をC5:C22に表示させたいのです。SUMIFを使えば楽なのですが、勉強のために極力VBAで処理させます。
フォームを閉じた際のソース（抜粋）は以下の通りです。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub CommandButton2_Click()
Dim i As Integer
Dim コード As Integer
Dim 金額 As Long
Dim 集計行 As Integer
Dim コード範囲 As Range
Unload Me
Set コード範囲 = Worksheets("集計").Range("b5, b22")
For i = 4 To 2000
コード = Cells(i, 3).Value
金額 = Cells(i, 5).Value
集計行 = コード範囲.Find(コード).Row
Next i
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
For～Nextの中はもっと処理を追加しなければならないのですが、とりあえず現段階で、
実行時エラー91（オブジェクト変数またはWithブロックが設定されていません）
が
集計行 = コード範囲.Find(コード).Row
の行で発生します。行番号だけを取得しようとしているので、Findの行だけを整数型変数に代入したいのですが・・・
間違っている点をお教え下さい。
ご面倒でなければ、 Application.WorksheetFunctionに置き換える方法も教えていただければ幸いです。
よろしくお願いします。
お世話になっております。
・ワードで算用数字を漢数字に変換する方法又はマクロを探しています。
・希望例: 22→二二、 100→一〇〇等
・以下のマクロを実行しましたが、全く反応がありません。
(マクロについてはずぶの素人です)
Option Explicit
Sub KanToNum()
Dim num As Integer, kan() As Variant
kan() = Array("〇", "一", "二", "三", "四", "五", "六", "七", "八", "九")
For num = 0 To 9
With ActiveDocument.Content.Find
.Text = kan(num)
.MatchByte = False
.Replacement.Text = num
.Execute Replace:=wdReplaceAll
End With
Next num
End Sub
マクロの修正を含めアドバイスをお願いします。
よろしくお願いします。
VBA初心者です。
多数のシートを条件によって二つのブックに分ける、というVBAを作ろうとしています。
なにぶん素人なので、無駄な文章が多いのではないかと心配で、
お知恵を拝借できればと思い投稿いたしました。どうぞよろしくお願いいたします。
やりたいこと：Book1のA列に100程度の文字列があり、そのいずれかと一致するシート名（Book1のSheets(2)以降）を持つシートはBook2の最終シートの後ろへ、どの文字列ともシート名が一致しないシートはBook3の最終シートの後ろへ移動。（「最終シートの後ろへ移動」がうまくいっていません）
VBAの内容：Book1のH1に「=countif(A:A,G1)」と入力しておき、G1にシート名を入力させ
H1>0ならば該当シートをBook2へ、それ以外はBook3へ移動 の繰り返し
Application.ScreenUpdating = False
Dim j As Integer, k As Integer
j = Workbooks("Book2.xls").Worksheets.Count
k = Workbooks("Book3.xls").Worksheets.Count
Do While Workbooks("Book1.xls").Sheets.Count > 1
Range("G1").Value = Worksheets(2).Name
If Range("H1").Value > 0 Then
Worksheets(2).Move after:=Workbooks("Book2.xls").Sheets(j)
Else
Worksheets(2).Move after:=Workbooks("Book3.xls").Sheets(k)
End If
Loop
入力シートの4～2000行にデータをフォームを使って入力し、そのフォームを閉じる際に集計シートで集計する家計簿を作ってます。集計シートでは、食費・交際費などのコードがB5:B22に入っており、それぞれの合計をC5:C22に表示させたいのです。SUMIFを使えば楽なのですが、勉強のために極力VBAで処理させます。
フォームを閉じた際のソース（抜粋）は以下の通りです。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub CommandButton2_Click()
Dim i As Integer
Dim コード As Integer
Dim 金額 As Long
Dim 集計行 As Integer
Dim コード範囲 As Range
Unload Me
Set コード範囲 = Worksheets("集計").Range("b5, b22")
For i = 4 To 2000
コード = Cells(i, 3).Value
金額 = Cells(i, 5).Value
集計行 = コード範囲.Find(コード).Row
Next i
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
For～Nextの中はもっと処理を追加しなければならないのですが、とりあえず現段階で、
実行時エラー91（オブジェクト変数またはWithブロックが設定されていません）
が
集計行 = コード範囲.Find(コード).Row
の行で発生します。行番号だけを取得しようとしているので、Findの行だけを整数型変数に代入したいのですが・・・
間違っている点をお教え下さい。
ご面倒でなければ、 Application.WorksheetFunctionに置き換える方法も教えていただければ幸いです。
よろしくお願いします。
数日前から突然IE8でファイルの保存ができなくなりました。
下記URLの状態なのですがこの説明はWindows XP SP2用です。
http://blogs.technet.com/b/jpieblog/archive/2009/06/19/3256750.aspx
5. ダウンロードが完了しない
Windows XP SP2 で「ファイルのダウンロード」を表示したままプログレスバーが進まない症状の場合、IME の「詳細なテキストサービス」が原因の可能性があります。
PDFファイル等を開くことはできますが、保存できません。（エラー表示なし）
このような状態に陥って脱出した方いらっしゃいませんか？
excel VBAで下記のようなコードを書きました。
他のプロシージャでも共通の変数を使用したいと思っています。
その為、public変数を宣言して使用したいと設定しましたが。
うまくいきません。
testmainを実行し、iに何も入っていないことを確認しました。
その後『1』を代入し、testmainは終了します。
testsubをその後実行し、iに先ほど代入された値を確認しようとしても何も代入されていない状態です。
全プロシージャでその変数を使用したいと思っているのですが、
何か方法、もしくはこのような使用方法ではないのでしょうか？
public変数を使用してもプロシージャが終了すれば変数はクリアされるのでしょうか？
構造化の方法の問題上参照渡しや、戻り値など、指定する方が複雑になっていきます。
ご指導よろしくおねがいします。
Public i As Variant
Sub testmain()
MsgBox test
i = 1
End Sub
Sub testsub()
MsgBox i
End Sub
