mimeu の回答履歴

会社PC(XP Professional SP3)の更新時に、Office97とOffice2000の両方をインストールしてもらいました。 更新前PCで使用していたExcel97のマクロの稼動テストを97で実施し正常に動いたので、Excel2000でも稼動テストをしたく「右クリック→プログラムから開く→プログラムの選択→参照」から2000を選択したのですが、なぜか97で開いてしまいます。その後何度試しても97でしか開いてくれません。 txtファイルを保存してある場所はバラバラですので、2000を開いた状態からtxtファイルを選択する方法は結構手間がかかります。 「右クリックから2000で開く」にはどうしたらよろしいでしょうか?

Excelにデータを1000行位入力し、中にＩＦ関数とかを入れまくって、それでも、Ｆｉｌｅサイズが2500Kb程度だったのですが、ある日、改訂版のＦｉｌｅを作ろうと、自分なりに技巧を凝らして、関数計算を増やしたり(場所により関数に関数を入れたり)、カラフルにしたり、シートの保護をしたり、離れたところに集計欄を付けたりしたとたん、急にＦｉｌｅサイズが10000Ｋｂを越えて、職場のパソコンでは、単独で使うときは問題ないのですが、別のＥｘｃｅｌと同時にＦｉｌｅが開かないくらいに、開く時とか、保存する時とかに時間がかかるようになり、使い物にならなくなりました。 私自信、Ｅｘｃｅｌには随分と経験があり、(自称)職場の中のExcel先生なのに理由が分かりません。 いくら関数の量を増やしたといっても、最初の関数の量から考えて４倍にもなるほどには増やしていません。まさか、空白のセルまで全セルを保存するようになってしまった？関数の入れ子はデータを費やす？シートの保護をしない方がいい(シートの保護をしないと他の人に使わせる訳にはいかないのです)？ ご存知の方がいらっしゃったら教えて下さい。

関数の知識があまりないもので、どのように構築したら良いかを教えて下さい。 Aの場合1と表示、Bの場合2と表示、Cの場合3と表示というように、これを20パターン位作成したいと思っています。 具体的にはA1セルに「A」を設定した際に、B1セルに「1」と自動表示される。A1セルに「B」を設定した際にB1セルに「2」と表示される。という具合です。 ご存知の方がいらっしゃいましたら、お手数ですが是非教えて下さい。 宜しくお願い致します。

wordで作成したファイルの最初の第１行名をファイル名として、名前を付けて保存できるマクロを作りたいのですが、うまくいきません。 Sub 保存() Dim ファイル名 As Variant ファイル名 = ActiveDocument.Paragraphs(1) & ".docx" ActiveDocument.SaveAs FileName:=(ファイル名), FileFormat:= _ wdFormatXMLDocument End Sub ではだめなのですが、どなたか添削よろしくお願いします。困っております。なにぶん初心者ですので基本的な文法のミスかもしれないですが、うまくいきません。

エクセルでマクロを組んだブックを3台のPCで共有して、 5分で自動更新しています。 しかしそれぞれのPCで別のアプリを実行しているため、 エクセルが隠れてしまい、変更があった時も見逃して しまいます。 そこで、自動更新ごと又は、一定時間ごとにエクセルの画面を デスクトップの最前面に表示して目につきやすくしたいのです。 マクロ等で対応はできないしょうか？

エクセルでマクロを組んだブックを3台のPCで共有して、 5分で自動更新しています。 しかしそれぞれのPCで別のアプリを実行しているため、 エクセルが隠れてしまい、変更があった時も見逃して しまいます。 そこで、自動更新ごと又は、一定時間ごとにエクセルの画面を デスクトップの最前面に表示して目につきやすくしたいのです。 マクロ等で対応はできないしょうか？

エクセル2003VBAで時間稼ぎ（待機）をさせたいのですが、 下記のSleepを使用すると、ときどきPCが固まってしまいます。 よい時間稼ぎ方法を御存じないでしょうか。 Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Do '開くボタンのハンドルを取得 hOpenButton = FindWindowExA(hwindow, 0, "ToolbarWindow32", vbNullString) Sleep 1000 Loop While hOpenButton = 0

EXCEL　VBA　で多くのサンプルから平均値が同じになるように代表を選びたい。 お世話になります。 稲や麦などは１株に数本の穂を付けます。今、沢山の株を抜いてきまして、一株づつ穂の数を数えました。そして、この稲は平均何本の穂が付いているかを計算しました。 そこで、本題です。この沢山抜いてきた稲の株から数株選びたいと思っています。条件は先ほど計算した平均の値と選ぶ株の値が小数第１位くらいまで一致するように選ぶ。また、選ぶ株は平均値に近い株を選ぶ事としたいのです。 上段の例は１株に２本の穂を付けている株が５株、３本付けている株が５株・・・８本付けている株が７株合った場合を示しました。（全体で８０株あります） これから、平均値の１株当たり5.2本となるように１０株選びます。例では５本穂を付けている株を８株、６本穂を付けている株を２株選べば選んだ代表株の平均値が5.2本になります。これを計算させるプログラムはどのように考えれば良いのでしょうか？ For Next文とIf文を使って、１株選ぶ毎に平均値を計算させて、基の平均値よりも大きい時は平均値より少ない穂の株を選び、逆に小さい時は平均値よりも大きい穂の株を選ぶというコードを考えて見たのですが、時々全体の平均値と選んだ株の平均値が合わなくなる時があります。多分、下段の図のような選べる株が無くなってしまった時に大きすぎる株や小さすぎる株を選んでしまい、全体の平均値と大きく離れてしまうと合わなくなってしまうのではないかと思います。 他に何かよい考え方はないでしょうか？ 説明が下手で、わかりにくいかも知れませんが、よろしくお願いします。

EXCEL　VBA　で多くのサンプルから平均値が同じになるように代表を選びたい。 お世話になります。 稲や麦などは１株に数本の穂を付けます。今、沢山の株を抜いてきまして、一株づつ穂の数を数えました。そして、この稲は平均何本の穂が付いているかを計算しました。 そこで、本題です。この沢山抜いてきた稲の株から数株選びたいと思っています。条件は先ほど計算した平均の値と選ぶ株の値が小数第１位くらいまで一致するように選ぶ。また、選ぶ株は平均値に近い株を選ぶ事としたいのです。 上段の例は１株に２本の穂を付けている株が５株、３本付けている株が５株・・・８本付けている株が７株合った場合を示しました。（全体で８０株あります） これから、平均値の１株当たり5.2本となるように１０株選びます。例では５本穂を付けている株を８株、６本穂を付けている株を２株選べば選んだ代表株の平均値が5.2本になります。これを計算させるプログラムはどのように考えれば良いのでしょうか？ For Next文とIf文を使って、１株選ぶ毎に平均値を計算させて、基の平均値よりも大きい時は平均値より少ない穂の株を選び、逆に小さい時は平均値よりも大きい穂の株を選ぶというコードを考えて見たのですが、時々全体の平均値と選んだ株の平均値が合わなくなる時があります。多分、下段の図のような選べる株が無くなってしまった時に大きすぎる株や小さすぎる株を選んでしまい、全体の平均値と大きく離れてしまうと合わなくなってしまうのではないかと思います。 他に何かよい考え方はないでしょうか？ 説明が下手で、わかりにくいかも知れませんが、よろしくお願いします。

EXCEL　VBA　で多くのサンプルから平均値が同じになるように代表を選びたい。 お世話になります。 稲や麦などは１株に数本の穂を付けます。今、沢山の株を抜いてきまして、一株づつ穂の数を数えました。そして、この稲は平均何本の穂が付いているかを計算しました。 そこで、本題です。この沢山抜いてきた稲の株から数株選びたいと思っています。条件は先ほど計算した平均の値と選ぶ株の値が小数第１位くらいまで一致するように選ぶ。また、選ぶ株は平均値に近い株を選ぶ事としたいのです。 上段の例は１株に２本の穂を付けている株が５株、３本付けている株が５株・・・８本付けている株が７株合った場合を示しました。（全体で８０株あります） これから、平均値の１株当たり5.2本となるように１０株選びます。例では５本穂を付けている株を８株、６本穂を付けている株を２株選べば選んだ代表株の平均値が5.2本になります。これを計算させるプログラムはどのように考えれば良いのでしょうか？ For Next文とIf文を使って、１株選ぶ毎に平均値を計算させて、基の平均値よりも大きい時は平均値より少ない穂の株を選び、逆に小さい時は平均値よりも大きい穂の株を選ぶというコードを考えて見たのですが、時々全体の平均値と選んだ株の平均値が合わなくなる時があります。多分、下段の図のような選べる株が無くなってしまった時に大きすぎる株や小さすぎる株を選んでしまい、全体の平均値と大きく離れてしまうと合わなくなってしまうのではないかと思います。 他に何かよい考え方はないでしょうか？ 説明が下手で、わかりにくいかも知れませんが、よろしくお願いします。

EXCEL　VBA　で多くのサンプルから平均値が同じになるように代表を選びたい。 お世話になります。 稲や麦などは１株に数本の穂を付けます。今、沢山の株を抜いてきまして、一株づつ穂の数を数えました。そして、この稲は平均何本の穂が付いているかを計算しました。 そこで、本題です。この沢山抜いてきた稲の株から数株選びたいと思っています。条件は先ほど計算した平均の値と選ぶ株の値が小数第１位くらいまで一致するように選ぶ。また、選ぶ株は平均値に近い株を選ぶ事としたいのです。 上段の例は１株に２本の穂を付けている株が５株、３本付けている株が５株・・・８本付けている株が７株合った場合を示しました。（全体で８０株あります） これから、平均値の１株当たり5.2本となるように１０株選びます。例では５本穂を付けている株を８株、６本穂を付けている株を２株選べば選んだ代表株の平均値が5.2本になります。これを計算させるプログラムはどのように考えれば良いのでしょうか？ For Next文とIf文を使って、１株選ぶ毎に平均値を計算させて、基の平均値よりも大きい時は平均値より少ない穂の株を選び、逆に小さい時は平均値よりも大きい穂の株を選ぶというコードを考えて見たのですが、時々全体の平均値と選んだ株の平均値が合わなくなる時があります。多分、下段の図のような選べる株が無くなってしまった時に大きすぎる株や小さすぎる株を選んでしまい、全体の平均値と大きく離れてしまうと合わなくなってしまうのではないかと思います。 他に何かよい考え方はないでしょうか？ 説明が下手で、わかりにくいかも知れませんが、よろしくお願いします。

Excel マクロ ファイル名取得について 特定のフォルダにあるファイルのファイル名を Excelに一覧として作成します。 下記マクロで実現できたのですが、フォルダでファイルを 「詳細」で並べて上から順番にB列に反映することは 可能でしょうか。 ご回答お待ちしております。 Sub fileName() Dim MyF As String Dim myRow As Long 'ファイル名の取得 myRow = 2 MyF = Dir(ThisWorkbook.Path & "\*") If MyF <> "" Then Do Until MyF = "" Cells(myRow, "B").Value = MyF 'ファイル名 MyF = Dir() myRow = myRow + 1 Loop End If End Sub

Open Office 3.2 Calc である値に一致したセルを含む行を別のシートに抜き出し一覧にする方法を教えてください。 例えば、 Sheet1 という名前のシートに 行1　1,いぬ,,5 行2　8,ねこ,a,9 行3　11,いぬ,b,d のようなデータがあるとして、 行1から順番に見ていき、列B(左から2番目)の値が いぬ という文字列の場合に、 Sheet2 という名前のシートに、 行1から順番に、そっくりそのまま参照(コピーではなく)するように値を入力し、 行1　='Sheet1'.A1,='Sheet1.B1',='Sheet1.C1',='Sheet1.D1' 行2　='Sheet1'.A3,='Sheet1.B3',='Sheet1.C3',='Sheet1.D3' とするということです。 例は3行ですが、実際には不規則に大量にあります。(例では奇数行に いぬ がありますが、実際はそういう規則性はありません) 数式でやろうとしましたが、規則的に連続していないものを詰めて並べるのは不可能だと思いました。 マクロでもできるのかわかりませんが、どんな関数、プロパティを使ったら出来るのかでもよいので教えてください。 私は基本的なOpen Office BasicなどOpen Officeがサポートしているスクリプト言語なら理解できます。

下記の11行のコードは、とあるjavascriptのコードです。 エクセルVBAでテキスト出力する作業を行っているのですが、 その際にこのコードも、Print#n,""を用いてテキストに貼 り付けしたいのです。 <script type="text/javascript"><!--" g_client = "123456789";" /* 888x15, 作成済み 10/05/07 */" g_slot = "123456789";" g_width = 888;" g_height = 15;" //-->" </script>" <script type="text/javascript"" src="http://aaaaaaaa.com/pagead/aaaaaaaa.js">" </script>" しかし、このコード中にはダブルクォテーションを含んでいるためか、下記のように 記述してもエラーが発生してしまいます。 Print#n,"<script type="text/javascript"><!--" Print#n,"g_client = "123456789";" Print#n,"/* 888x15, 作成済み 10/05/07 */" Print#n,"g_slot = "123456789";" Print#n,"g_width = 888;" Print#n,"g_height = 15;" Print#n,"//-->" Print#n,"</script>" Print#n,"<script type="text/javascript"" Print#n,"src="http://aaaaaaaa.com/pagead/aaaaaaaa.js">" Print#n,"</script>" そこで、下記の色んなパターンで試してみましたがダメでした。 行によってはできたりしますが、飛ばされる行があったり、エラーが 記述されたりします。 Print#n,""＃＃＃＃＃"" Print#n,"""＃＃＃＃＃""" Print#n,"'＃＃＃＃＃"' Print#n,'＃＃＃＃＃' そもそも、javascriptのコードを文字列として貼り付けることが 難しいのか、あくまでもコード中のダブルクォテーションの存在が 邪魔しているのかわかりません。シングルクォテーションも使えないです。。 他の記号に代用することもできないのでしょうか？ この11行のコードの中のダブルクォテーションの使用や改行状態など、 コード内容に関する変更は一切認め許されておらず、あくまでも この11行で実施したいのです。 Print#n,""という手段にはこだわっていませんので、他にも方法が ありましたらご指導お願いします。

エクセルファイルを、エクスプローラによる通常の削除方法でなく、マクロを使った方法等で削除できますか。ＶＢＥでkillを使いパスを指定して実行してもファイル自体開いているので不可能のように思えます。何かいい方法はあるのでしょうか。もしあれば具体的な例で教えていただきたいのですが。よろしくお願いいたします。

Windows7のエクスプローラで詳細表示に「属性欄」を表示させるには？ WindowsXPの時は表示可能でしたが、 Windows7のエクスプローラで詳細表示の見出し部分を右クリックしても メニューに「属性」が表示されないので、選択できません。 「属性欄」を表示する方法をお教え下さい。

VB2008でe.valueとはどういう意味でしょうか? よろしくお願いします。 DATAGRIDVIEWというのを勉強しているのですが、 あちこちのサイトでe.value=というのを見かけます。 これはどういう意味でしょうか。 よろしくお願い致します。

VB2008でe.valueとはどういう意味でしょうか? よろしくお願いします。 DATAGRIDVIEWというのを勉強しているのですが、 あちこちのサイトでe.value=というのを見かけます。 これはどういう意味でしょうか。 よろしくお願い致します。

エクセルのVBAを使用し、Domino Web Accessのメールを送る方法はありますか？ 今まではLotusNotesで送信していましたが、DWAに変わってしまい困っています。 よろしくお願いいたします。

エクセルについて。 エクセルでたとえば 0.995176 1.033572689 1.01958923 1.182650145 1.033572632 と言う感じの表を作ったときに、0.995176や1.01958923のような小数点以下の位が小さいのだけ検索する方法はあるのでしょうか？ 自分でminとか使ってみたのですが、minだと一つしか出なくて駄目でした。 数が多くて一つ一つ探していたら朝が来てしまいそうです。 どなたかエクセルに詳しい方、よろしくお願いいたします。