Wendy02 の回答履歴

株価データ１分足をエクセルにリアルタイムに取り込んで保存しています。 そのデータは時々約定の無い時間帯の抜けている行がありまして、修正して保存したいと思っています。 下に例を示しますと、時間軸の110131と110132が抜けています。 この抜けているところに次の足が刻む時、その抜けているところに直前の終値110130の11637を同時に挿入させたいのです。ＶＢＡで出来ますでしょうか。 エクセル得意ではありませんがエクセルに詳しい方ご指導お願いします。 Windows XP　Microsoft Excel2000 日＆時分　始値　　高値　　　安値　　　終値　　出来高 110128, 11635, 11635, 11634, 11635, 3 110129, 11634, 11634, 11634, 11634, 1 110130, 11636, 11639, 11635, 11637, 5 110133, 11633, 11636 11633, 11633, 3 110134, 11631, 11631, 11631, 11631, 1 110135, 11630, 11630, 11630, 11630, 3 110136, 11629, 11629, 11629, 11629, 3 訂正後 110128, 11635, 11635, 1 1634, 11635, 3 110129, 11634, 11634, 11634, 11634, 1 110130, 11636, 11639, 11635, 11637, 5 110131, 11637, 11637, 11637, 11637, 0 110132, 11637, 11637, 11637, 11637, 0 110133, 11633, 11636, 11633, 11633, 3 110134, 11631, 11631, 11631, 11631, 1 110135, 11630, 11630, 11630, 11630, 3 110136, 11629, 16290, 11629, 11629, 3

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

エクセル2000を使用しています。 以下のマクロを作り、19行目の”AAA”を探し、29行目で1つ前の列までロックしようとしています。 新規のエクセルで使用すると、動作しますが、肝心の組み込みたいエクセルだと動作しません。 19行目には”AAA”以外の文字列があります。 （19行目には、”AAA”は必ず1つしかありません） また、”AAA”は関数で19行目に表示されています。 実行すると最後の行のRange(Range("A29"), h.Offset(1, -1)).Locked = Trueで黄色ハイライトされ 実行エラー1004で「RangeクラスのLockedプロパティを設定できません。」を表示されます。 何か対処するよい方法があれば、教えてください。 Private Sub Worksheet_Change(ByVal Target As Range) Dim h As Range Cells.Locked = False ActiveSheet.Protect userinterfaceonly:=True Set h = Range("19:1").Find(what:="AAA", LookIn:=xlValues, lookat:=xlWhole) If h Is Nothing Then Exit Sub If h.Column = 1 Then Exit Sub Range(Range("A29"), h.Offset(1, -1)).Locked = True End Sub

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

正規表現の検索及び置換について質問させていただきます。 下記のような文字列があったとします。 「私は、<gaiji gaijisyurui="0001" gaijicode="F040" /><gaiji gaijisyurui="0002" gaijicode="F041" />で、　<gaiji gaijisyurui="0003" gaijicode="F042" />です。」 この文章から 　<gaiji gaijisyurui="0001" gaijicode="F040" /> 　<gaiji gaijisyurui="0002" gaijicode="F041" /> 　<gaiji gaijisyurui="0003" gaijicode="F042" /> の部分を検索して、それぞれ 　<外字0001F040> 　<外字0002F041> 　<外字0003F042> と置き換え、最終的には、 　「私は、<外字0001F040><外字0002F041>で、<外字0003F042>です。」 という文字列にする関数を作成したいと思っておりますが、どのようにソースを作ればよろしいのでしょうか？ アドバイスや具体的なソースコードをいただけると非常に助かります。 現在、途中までソースを作成しているのですが、文字数制限でソースの半分も入りきらなかったため大雑把に書かせていただきます。 ※※※以降の処理が分かりません。 検索結果に対して文字列置換を行っても元の文字列内の置換にはならない？ Private Function GaijiChange(ByVal pNaiyo As String) As String Dim wNaiyo As String = "" ' 置換後文字列 Dim wGaijisyurui As String = "" Dim wGaijicode As String = "" Dim wChangeWord As String = "" Dim wChangeStr As String = "" Dim Work As String = "" ' 正規表現で<gaiji>タグを検索 Dim wSeikiHyogen As String wSeikiHyogen = "<gaiji gaijisyurui=\" & """" & "[0-9a-zA-Z]{4}\" & """" & " gaijicode=\" & """" & "[0-9a-zA-Z]{4}\" & """" & " />" '正規表現 Dim wRegex As New System.Text.RegularExpressions.Regex( _ wSeikiHyogen, System.Text.RegularExpressions.RegexOptions.IgnoreCase) ' 文字列にに含まれる<gaiji>タグを全て検索 Dim wMc As System.Text.RegularExpressions.MatchCollection = wRegex.Matches(pNaiyo) For Each m As System.Text.RegularExpressions.Match In wMc ' 検索結果からgaijisyuruiを取得 wGaijisyurui = ' 検索結果からgaijicodeを取得 wGaijicode = ' 置換文字列作成 wChangeWord = "<外字" & wGaijisyurui & wGaijicode & ">" ' 検索結果を置換 ' ※※※ Next Return wNaiyo End Function 以上、宜しくお願いいたします。

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

正規表現の検索及び置換について質問させていただきます。 下記のような文字列があったとします。 「私は、<gaiji gaijisyurui="0001" gaijicode="F040" /><gaiji gaijisyurui="0002" gaijicode="F041" />で、　<gaiji gaijisyurui="0003" gaijicode="F042" />です。」 この文章から 　<gaiji gaijisyurui="0001" gaijicode="F040" /> 　<gaiji gaijisyurui="0002" gaijicode="F041" /> 　<gaiji gaijisyurui="0003" gaijicode="F042" /> の部分を検索して、それぞれ 　<外字0001F040> 　<外字0002F041> 　<外字0003F042> と置き換え、最終的には、 　「私は、<外字0001F040><外字0002F041>で、<外字0003F042>です。」 という文字列にする関数を作成したいと思っておりますが、どのようにソースを作ればよろしいのでしょうか？ アドバイスや具体的なソースコードをいただけると非常に助かります。 現在、途中までソースを作成しているのですが、文字数制限でソースの半分も入りきらなかったため大雑把に書かせていただきます。 ※※※以降の処理が分かりません。 検索結果に対して文字列置換を行っても元の文字列内の置換にはならない？ Private Function GaijiChange(ByVal pNaiyo As String) As String Dim wNaiyo As String = "" ' 置換後文字列 Dim wGaijisyurui As String = "" Dim wGaijicode As String = "" Dim wChangeWord As String = "" Dim wChangeStr As String = "" Dim Work As String = "" ' 正規表現で<gaiji>タグを検索 Dim wSeikiHyogen As String wSeikiHyogen = "<gaiji gaijisyurui=\" & """" & "[0-9a-zA-Z]{4}\" & """" & " gaijicode=\" & """" & "[0-9a-zA-Z]{4}\" & """" & " />" '正規表現 Dim wRegex As New System.Text.RegularExpressions.Regex( _ wSeikiHyogen, System.Text.RegularExpressions.RegexOptions.IgnoreCase) ' 文字列にに含まれる<gaiji>タグを全て検索 Dim wMc As System.Text.RegularExpressions.MatchCollection = wRegex.Matches(pNaiyo) For Each m As System.Text.RegularExpressions.Match In wMc ' 検索結果からgaijisyuruiを取得 wGaijisyurui = ' 検索結果からgaijicodeを取得 wGaijicode = ' 置換文字列作成 wChangeWord = "<外字" & wGaijisyurui & wGaijicode & ">" ' 検索結果を置換 ' ※※※ Next Return wNaiyo End Function 以上、宜しくお願いいたします。

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

現在VBAでマクロを作成しています。 そのマクロをOUTLOOKのツールバーに登録しています。 受信したメールの内容を取り出し、加工し、クリップボードにコピー、そして他のアプリケーションに貼り付けを行っています。 マクロの種類がいくつもあるので、現在では 　OUTLOOK→マクロ実行→クリップボードにコピー→『alt』+『tab』で画面切り替え→他のアプリ表示→貼り付け 上記を繰り返しています。画面の関係上2枚を並べません。 OUTLOOKにあるツールバーと同じような機能をタスクバーに組み込めないでしょうか？？ 新規ツールバーの追加もありますし、同じmicrosoftなので 出来そうな気もするのですがご指導お願いします。

EMSでアメリカ宛にキャンドルって送れますか？ もう発送してしまったのですが、今更不安になっています。 きちんとラベルには記入しましたが、 禁制品の「可燃性固体」に該当していそうな気がして… 確認しましたが、ろうそくやキャンドルという記載はなかったです。 みなさんの見解を教えてください。 お願いします。

表の項目で関数を入れているなど、データ入力以外さわらせたくない項目があるため、 シートの保護を設定するとデータの追加（新しいレコードの追加）が出来なくなりました。 （表をリストに変換しています。またセルの設定で「ロック」は外しています） またマクロも実行時にエラーになります。 「シートの保護」の「～許可する操作」の設定をいろい変えてみたのですがうまくいきません。 リストへレコード追加やマクロ実行時が出来て、ユーザーには関係のない項目を触らせなくする方法は無いでしょうか。 エクセル２００３です。

はじめまして。　よろしくお願いいたします。 ＰＣを壊してしまい、急遽購入しに行ったのですが、高かったのでOfficeの入っていないものを購入してしまいました。 代わりにElOfficeというOfficeに似たソフトを購入して使っていましたが、やはり使い勝手が悪いのでマイクロソフトの製品を入れたいのですが、種類が山ほどありすぎて、どれを買ったらいいのか分かりません。 そもそもＰＣにOfficeが入っていなければ、なんという種類の物を購入すればよいのでしょうか。 入っているソフトの種類だけ見て購入しようと思っていましたが、CD-ROMが2枚入っているものじゃないとだめとか、パッケージ（Ａ）はだめとか、意味が分からない情報が断片的に入ってくるので、 何を買ったらいいのやら・・・と混乱しています。 ＯＳはビスタで、必要としているソフトはエクセル・ワード・アクセス・パワポです。 結構な種類を必要としているので、正規だととても高いため、できたら楽天などで安く購入したいと考えています。 どこに注意して、どのような製品名の物を買えば、問題なく使用できるのでしょうか。 よろしくお願いいたします。

表の項目で関数を入れているなど、データ入力以外さわらせたくない項目があるため、 シートの保護を設定するとデータの追加（新しいレコードの追加）が出来なくなりました。 （表をリストに変換しています。またセルの設定で「ロック」は外しています） またマクロも実行時にエラーになります。 「シートの保護」の「～許可する操作」の設定をいろい変えてみたのですがうまくいきません。 リストへレコード追加やマクロ実行時が出来て、ユーザーには関係のない項目を触らせなくする方法は無いでしょうか。 エクセル２００３です。

ワード２０１０を起動して、新規の画面を表示したまましばらくほっておくと下記のよなメッセージが表示されました。 また、メッセージを消して、ワードを終了させようとしたときも同じようはメッセージが出ました。 「実行しようとしている機能は、マクロまたはマクロ言語のサポートを必要とするコンテンツが含まれています。～」 これはどのようなマクロを実行しようとして表示されたものでしょうか？ またマクロの内容を調べるにはどうすればいいでしょうか？ （ワードは起動しただけで、文字の入力等何も行っていません。マクロが何をしようとしているのか知りたい。） ワードを終了するときに表示されたメッセージを消すとポップアップで 「全文書対象の Noemalテンプレートに影響する変更が行われています。変更を保存しますか？」 のメッセージが表示されます。 「保存しない」を指定しましたが、これがでる原因は何なのでしょうか？

表の項目で関数を入れているなど、データ入力以外さわらせたくない項目があるため、 シートの保護を設定するとデータの追加（新しいレコードの追加）が出来なくなりました。 （表をリストに変換しています。またセルの設定で「ロック」は外しています） またマクロも実行時にエラーになります。 「シートの保護」の「～許可する操作」の設定をいろい変えてみたのですがうまくいきません。 リストへレコード追加やマクロ実行時が出来て、ユーザーには関係のない項目を触らせなくする方法は無いでしょうか。 エクセル２００３です。

No.4800906で質問者：bom_baye様がご質問されていることと同じ内容で困っています。 ほとんどは、ご回答者：hige_082様の回答内容の通りで実施可能でした。ただ、 条件が違うのが、データが１からはじまるのですが、１００まで等の終わりが決まっていない 点です。リストの最後の数値までを印刷する等の設定は可能でしょうか？ また、それぞれのシートを3枚ずつ印刷する設定も可能でしたら知りたいのですが。 以下、質問と回答をそれぞれ引用させていただきます。何卒よろしくお願いします。 bom_baye様の質問内容を引用させていただきます。 --------------------------------------------------------------------------------- エクセルのVLOOKUPの印刷方法についてですが、シート(1)（データ１～１００）をシート(2)（個表）にVLOOKUP（１～１００までの個表を番号入力でデータを表示する）で作成したあと１～１００までの個表をいっきに印刷をする方法を教えてください。現状は個表の表は１つだけ作成していますので、１～１００までの番号を随時入力して印刷しなければなりません。ご回答よろしくお願いします。 --------------------------------------------------------------------------------- 次にhige_082様の回答内容を引用させていただきます。 --------------------------------------------------------------------------------- マクロでよければ Sub test() Dim a As Range Dim i As Long With Worksheets("個表") Set a = Range("a1") '番号入力用セルの設定 For i = 1 To 100 a.Value = i ActiveSheet.PrintOut Next i End With End Sub ---------------------------------------------------------------------------------

エクセルファイルを作成しました。 ボタンを押すとシートを選ぶような簡単なマクロが付随してます。 サーバーにアップロードする方法で 複数の人間が利用してデータを上書きするものです。 途中でマクロを実行する際に 「dll 読み込み時のエラーです」 と表示されるようになりました。 修正しても不定期で発生します。 ＶＢＡ標準モジュールのファイルをクリックしても同様で マクロのコードが参照できません。 ファイルは重い為、圧縮と解凍を繰り返してます。 どのような原因があるのでしょうか。 エクセルもＶＢＡも素人ですので わかりやすい解説をお願いします。