Wendy02 の回答履歴

On Timeメソッド？で更新されません。 現在Web上にあった例を参考に 下記の様にホワイトボード解析シートのA1セルに 20秒ごとに現在時刻を表示させています。 これを応用して、違うシートに １７：００に天気というマクロを実行するよう 作成したのですが上手くいきませんでした。 Sub Auto_Open()とSub auto_close()のtargetTimeを targetTime = TimeValue("17:00") Macro7を天気 としたのですが、なぜ更新されなかったか分かる方がいらっしゃいましたら ご教授下さい。 Sub Auto_Open() Dim TargetTime, WaitTime TargetTime = Now + TimeValue("00:00:01") WaitTime = TimeValue("00:00:10") Application.OnTime TargetTime, "Macro7", WaitTime End Sub Sub Macro7() On Error Resume Next Worksheets("ホワイトボード解析").Range("A1").Calculate Application.OnTime Now + TimeValue("00:00:20"), "Macro7", TimeValue("00:00:10") '↑TimeValueの最初の方をへんこうする事で時間が変わる End Sub Sub auto_close() Dim i As Integer, TargetTime On Error Resume Next For i = 1 To 10 TargetTime = Now + TimeValue("00:00:" & Application.Text(i, "00")) Application.OnTime TargetTime, "Macro7", , False Next i End Sub

エクセルのシート名更新のマクロについて B1の値を元に、シート名を更新するマクロでつまづいています。 (1)B1セルに9/1と入力したら、2010年9月と表示されるように 「セルの書式設定」で調整しています。 (2)「(1)」で表示された年と月の情報をシート名に反映させたいと 思っています。 そこで、次のコードを記入しました。 --------------------------------------------------- Sub 更新作業() 'ひと月更新する。 Worksheets(1).Activate Range("B1").Select For Each r In Selection r.Value = DateSerial(Year(r.Value), Month(r.Value) + 1, Day(r.Value)) Next r 'シート名を変更する。 Worksheets(1).Activate ActiveSheet.Name = Format(Range("b1"), "yyyy年m月") ' 数量を削除する。 Range("C4:D9").Select Selection.ClearContents Range("C4").Select End Sub --------------------------------------------------- この場合「ActiveSheet.Name = Format(Range("b1"), "yyyy年m月")」で エラーが出てしまいます。 なぜ問題が出るのか、 また、解決策があれば、教えていただけないでしょうか。

Word 2007で自作マクロを「アドイン」タブに追加する方法 現在Word 2007で、自作したマクロを「クイックアクセスツールバー」に追加して使っています。 しかし、クイックアクセスツールバーのボタンが多くなりすぎて不便を感じています。 「アドイン」タブにマクロを追加することはできないでしょうか。 マクロはWord 2003でVBAで書いたものを、Word 2007に入れ直して使っています。 OSはWindows XP SP3です。 どなたかご存じの方、ご教示いただけますと幸いです。

英検二級や準一級で勉強したことが そのまま大学受験でも役に立つでしょうか 役に立つのは当然だろうと思われるでしょうが たとえば英検二級用の単語帳で覚えた単語は大学入試にも必須だとか、 そんな感じのことです。

購入時にオフィスが入っていたハードディスクを、取り出して他のパソコンで使用できますか？ 　 ハードディスクごと取り外して、ハードディスクケースなりで他のパソコンに接続しても、その中にインストールされているオフィスは使用できるのでしょうか。 前に、ハードディスクケースに入れて、外付けにして試してみたら、使用できないみたいなメッセージが出て、不可能でしたが、できないのだとしたらなぜなのでしょうか。 コピーをしているのではないので可能かと思っているのですが。

エクセルのシート名更新のマクロについて B1の値を元に、シート名を更新するマクロでつまづいています。 (1)B1セルに9/1と入力したら、2010年9月と表示されるように 「セルの書式設定」で調整しています。 (2)「(1)」で表示された年と月の情報をシート名に反映させたいと 思っています。 そこで、次のコードを記入しました。 --------------------------------------------------- Sub 更新作業() 'ひと月更新する。 Worksheets(1).Activate Range("B1").Select For Each r In Selection r.Value = DateSerial(Year(r.Value), Month(r.Value) + 1, Day(r.Value)) Next r 'シート名を変更する。 Worksheets(1).Activate ActiveSheet.Name = Format(Range("b1"), "yyyy年m月") ' 数量を削除する。 Range("C4:D9").Select Selection.ClearContents Range("C4").Select End Sub --------------------------------------------------- この場合「ActiveSheet.Name = Format(Range("b1"), "yyyy年m月")」で エラーが出てしまいます。 なぜ問題が出るのか、 また、解決策があれば、教えていただけないでしょうか。

私は八王子で、吹き矢をやっています。身体にとてもいいことを実感しています。でも趣味に金かけ過ぎるのは反対ですから用具はほとんど手作りです。しかし金儲けでも何でもないのに仲間が増えない。警戒心が強くなりすぎて寄ってこないのかな。健康で楽しい語らい仲間を増やしたい。どうすればいいのかな。

ExcelVBAでの標準偏差の求め方 使用ソフト：Excel2003 ExcelVBAで標準偏差を求めたいのですが、 求めたいデータが複数ファイル(最大31ファイル)に渡り、 また全ての行を一つのファイルにまとめようとすると9万行以上になります。 一ファイルあたりは3000行前後です。 一つのファイルに全てのデータがあれば 下記のようにStDev関数を使うのですが、 今回は複数ファイルに渡るので使えません。 Application.WorksheetFunction.StDev(.Range(.Cells(1, 1), .Cells(Y, 1))) また、1つのファイルにまとめるにもExcel2003なので、 65536行までしか行がなくまとめられません。 このような場合、どのように標準偏差を求めればいいのでしょうか？ 出来るだけ速度は犠牲にしたくはありませんが、 速度以前に実装すら出来ません…。 どうか先達の皆様、お知恵をお貸しください。 （同じデータに対して平均、最大値も求めていますが、 　それは元ファイルから一つ一つのデータファイルを開いて、 　WorksheetFunctionのSum関数、Max関数を使用して最後に集計、計算をしています）

On Timeメソッド？で更新されません。 現在Web上にあった例を参考に 下記の様にホワイトボード解析シートのA1セルに 20秒ごとに現在時刻を表示させています。 これを応用して、違うシートに １７：００に天気というマクロを実行するよう 作成したのですが上手くいきませんでした。 Sub Auto_Open()とSub auto_close()のtargetTimeを targetTime = TimeValue("17:00") Macro7を天気 としたのですが、なぜ更新されなかったか分かる方がいらっしゃいましたら ご教授下さい。 Sub Auto_Open() Dim TargetTime, WaitTime TargetTime = Now + TimeValue("00:00:01") WaitTime = TimeValue("00:00:10") Application.OnTime TargetTime, "Macro7", WaitTime End Sub Sub Macro7() On Error Resume Next Worksheets("ホワイトボード解析").Range("A1").Calculate Application.OnTime Now + TimeValue("00:00:20"), "Macro7", TimeValue("00:00:10") '↑TimeValueの最初の方をへんこうする事で時間が変わる End Sub Sub auto_close() Dim i As Integer, TargetTime On Error Resume Next For i = 1 To 10 TargetTime = Now + TimeValue("00:00:" & Application.Text(i, "00")) Application.OnTime TargetTime, "Macro7", , False Next i End Sub

漢字のJIS水準をエクセルを使用して調べる方法がよくわかりません。 質問集に同様の問い合わせがあり、回答が寄せられているのですがエクセルに不案内のため、操作方法がよくわかりません。以下のような操作 >エクセルでＡ１セルに文字を入れ、Ａ２セルに >=CODE(A1)と入れて下さい。 をすると結果として得られるセルの値とはどこで確認できるのですか。 またはデータを入力する前に何かセルの書式設定などが必要ですか。 結果として得られたA2のセルの値についての見方はわかるのですが・・・。 よろしくお願いいたします。

読んでココのソフトで文章をエクセルやワード、パワーポイントに変換できるはずなのですが、 変換するメニューにエクセル、ワード、PDFはあるのですが、パワーポイントがありません。 でも、パワーポイントのソフトはPCにインストールしてあります。 どーしたらよいのでしょうか？

On Timeメソッド？で更新されません。 現在Web上にあった例を参考に 下記の様にホワイトボード解析シートのA1セルに 20秒ごとに現在時刻を表示させています。 これを応用して、違うシートに １７：００に天気というマクロを実行するよう 作成したのですが上手くいきませんでした。 Sub Auto_Open()とSub auto_close()のtargetTimeを targetTime = TimeValue("17:00") Macro7を天気 としたのですが、なぜ更新されなかったか分かる方がいらっしゃいましたら ご教授下さい。 Sub Auto_Open() Dim TargetTime, WaitTime TargetTime = Now + TimeValue("00:00:01") WaitTime = TimeValue("00:00:10") Application.OnTime TargetTime, "Macro7", WaitTime End Sub Sub Macro7() On Error Resume Next Worksheets("ホワイトボード解析").Range("A1").Calculate Application.OnTime Now + TimeValue("00:00:20"), "Macro7", TimeValue("00:00:10") '↑TimeValueの最初の方をへんこうする事で時間が変わる End Sub Sub auto_close() Dim i As Integer, TargetTime On Error Resume Next For i = 1 To 10 TargetTime = Now + TimeValue("00:00:" & Application.Text(i, "00")) Application.OnTime TargetTime, "Macro7", , False Next i End Sub

EXCELでの二捨三入の算式について セルA1の値を5で割り、その余りが3以上の場合は 値A1の一の位を5刻みで繰り上げて、3未満の場合は切り捨てる、 (例) 42→40 53→55 57→55 58→60 という計算式をEXCELで入力するには どの様な関数を用いれば良いでしょうか。

ExcelのVBAでアクティブシートの特定の文字列の入ったセルを全て選択し、文字をクリアしたいのですが、構文を教えて下さい。ちなみに、文字列というのは『jpg』です。 挿入した画像を一括削除する場合は、ActiveSheet.Shapes.SelectAll で全て選択できたのですが、文字列だとよくわかりませんでした。 Find("jpg")でやってみると最初の『jpg』だけが選択されてシート内の全てを選択できないので、全て選択・クリアできる方法を探しています。

氏神様は、どちらになるんでしょうか？ 現在住んでいる地域の氏神様にご挨拶に伺いたいと思っております。 土地勘がなく、ご近所の方に聞いてみてもわからないとの話だったので、 神社庁に問い合わせたら　 ウチから結構距離のある天祖神社を紹介されました。 （車で１０分くらい） しかし、地図を見ると、 もっと近くの徒歩５分くらいのところに天祖神社があったので、 こちらのほうが（家に近いほうが）何かという時に お参りに行きやすいと思うんです。 あと、さらに近くに日枝神社が有るんです。 神社庁のHPには、日枝神社は記載されていないので、 お仕えしてる神様が違うんですかね・・？ えと、質問をまとめますと、 (1)同じ名前の神社だったら、近くの天祖神社でも問題ない？ (2)近くの天祖神社と日枝神社では、どちらがよりその土地の氏神様といえるのでしょうか？ 　（家の場所からみると、日枝神社が一番近くにある神社です） ものすごく信心深いほうではなかったのですが、 いまの土地に長く住まうことになると思いますので、 ぜひ早々にご挨拶に行きたいと考えてます。 詳しい方にご教示いただけると幸いです。

Duoを使った勉強法について。 大学一年のものです。高校のときから英語がにがてで,特にボキャブラリーが不足しているのが悩みでした。 そこでいろいろな単語帳を見てみたところ,Duoと単語王に行き着きました。 しかしいままで特に単語を覚える機会を作ってこなかったのでやり方がわからず書いたり音読してみたりと,やり方が定まらずなかなか進まないし覚えている感覚がありません。 Duoや単語王で効率よく勉強できる方法があったらぜひ教えていただきたいです。 ちなみにDuoはカードとCD持ってます。

Duoを使った勉強法について。 大学一年のものです。高校のときから英語がにがてで,特にボキャブラリーが不足しているのが悩みでした。 そこでいろいろな単語帳を見てみたところ,Duoと単語王に行き着きました。 しかしいままで特に単語を覚える機会を作ってこなかったのでやり方がわからず書いたり音読してみたりと,やり方が定まらずなかなか進まないし覚えている感覚がありません。 Duoや単語王で効率よく勉強できる方法があったらぜひ教えていただきたいです。 ちなみにDuoはカードとCD持ってます。

エクセルのマクロで数値に応じてオートシェイプの色を変更したいのですが・・・ マクロは初心者なもので、同じような例を調べて何度も試みたのですが、なかなか思い通りに動くプログラムが作れません。 どなたかマクロに詳しい方、ご教授願えればと思います。 やりたいことは以下の通りです。 シートが２つあります。 Sheet1には210の村について、人口性比のデータが列挙してあります。 Sheet2には、地図の中に、全ての村の所在をオートシェイプで作った○に番号をつけて表示してあります。 マクロを用いてやりたいことは、 Sheet1のG列にある人口性比の数値に応じて、以下の条件を元にSheet2のオートシェイプ（210個すべて）の色を変更させたいのです。 -950以上ならば黄色 -900以上950未満ならば緑 -850以上900未満ならば水色 -800以上850未満ならば青 -800未満ならば紺 というぐあいに。 他のデータに関しても同様に地図上で数値に応じた色分けをしたいので、一つ手本になるものができれば非常に有難いのですが。。 あと、macを使っているのですが、なかなか成功に至らないのはwindowsとのVBAの互換性の問題もあるのでしょうか？？ どなたかアドバイス宜しくお願いします。

今日は新月です。 冠詞の使い方がよく分かりません。 It is new moon today. It is the new moon today. どちらでしょうか？ ご教授願います。

CELLの座標取得方法 A1 はCellで指定すると(1,1)になります。 変数にA1を代入して、Cellの座標をxとyを別々の変数に入れる方法を教えてください。 イメージは インプットボックスにA1と入力すると、 　A1は、cellだと 　x座標1 　y座標1 　になります。 という結果Msgboxに表示させたいのです。