ka_na_de の回答履歴

IE8+offce2003です。 ブラウザの右下に「拡大レベルの変更」というのがあり 手動で100％や75％に変更できますが ｖｂａで変更する方法はありますか？ とあるページを開く時は100％、違うページを開く時は75％、 としていので、手動ではなくｖｂａで行ないたいです。 Sub test() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "http://www.yahoo.co.jp/" Do While ObjIE.Busy = True '表示させるまで待つ DoEvents Loop 'サイズの調整をする処理 End Sub コードを聞くのはご法度かもしれませんが ご教授よろしくお願い致します。

※エクセル初心者のため、細かな説明を頂けると嬉しいです！ まず、セルに数値を打ち込み… 例えば ２０ ４０ １２ ４８ ４０ ４０ だとします。 これらの和をexcelを使って１００にする方法が今回の質問です。 地道に計算していけば、 ２０　　→　 １０ ４０　 →　 ２０ １２　　→　　６ ４８　　→　　２４ ４０　　→　　２０ ４０　　→　　２０ という数値を出すことができますが、当該の数字はもっと細かく、小数の値になるかと思うのでエクセルでどうにかできないかと思っています…。 最終的には１本の棒グラフ化したいのですが、たぶんそのやり方はわかると思うので…。 よろしくおねがいします；；

IE8+offce2003です。 ブラウザの右下に「拡大レベルの変更」というのがあり 手動で100％や75％に変更できますが ｖｂａで変更する方法はありますか？ とあるページを開く時は100％、違うページを開く時は75％、 としていので、手動ではなくｖｂａで行ないたいです。 Sub test() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "http://www.yahoo.co.jp/" Do While ObjIE.Busy = True '表示させるまで待つ DoEvents Loop 'サイズの調整をする処理 End Sub コードを聞くのはご法度かもしれませんが ご教授よろしくお願い致します。

5000行ほどあるエクセルファイルで、 「■」の文字がある行の直前に空白行を挿入したいと思っています。 「■」のある行が1500行ほどあるので、 手作業は大変かと思い、マクロでやるのはどうかな？と おもったのですが、既存のマクロを少し修正することはあっても 初めからマクロを組んだことがないので、 どう書けばよいかわかりません。 データはA列にしか無い状態で、 「■」がある行の直前に空白行を挿入するマクロは どのように書けばよいのでしょうか？ ご教授のほどお願いします。

数式だけで、太字に設定されているセルの個数を求めたいのですが、 可能でしょうか？ イメージとしては下記のようなものです。 ○＝太字に設定されているセルと仮定 　A　　B　　C　　D 1○　　×　○　　×　　太字は２個 2○　　○　○　　×　　太字は３個 3×　　×　×　　○　　太字は１個

Ｅｘｃｅｌ２０００を使っています。 シートＡに数千件のデータがあります。 シートＢのＥ列にある文字とシートＡのＤ列の文字が重複する場合に、シートＡの重複するセルがある行を削除する（且つできれば行のデータを抜き出すＶＢＡを作ろうと考えています。 最近ＶＢＡの初心者本をやっと理解したところで、ちんぷんかんぷんとまではいかないけど、知恵熱がでました。 仕事なので自分でなんとかすべきかと思いますが、きっかけの調べ方がまずわからない。 どなたか、解かるきっかけだけでも与えて頂けないでしょうか。とくに、別シートの値と重複する値を探す場合に何をいれるかわかればきっと道は開けると思うんですが…。 初めての質問なので、質問内容が至らなかったらもうしわけありません。

Excel2003でVBAを使い、セルに[現在の日付および時間]+[3桁の通し番号]を文字列で入力したいのですが、なかなかうまくいきません。 例えばA列に データA データB データC ・・・ ・・・ のようにデータが200個ほどある場合、B列に yymmddhhmm001　←　2009年12月13日3時25分に実行した場合は0912130325001 yymmddhhmm002 yymmddhhmm003 ・・・ ・・・ のように記載したいと思っています。 VBA初心者ですので、ものすごく簡単なことを質問しているかもしれませんがご教授頂ければ幸いです。 宜しくお願いします。

Excel2003でVBAを使い、セルに[現在の日付および時間]+[3桁の通し番号]を文字列で入力したいのですが、なかなかうまくいきません。 例えばA列に データA データB データC ・・・ ・・・ のようにデータが200個ほどある場合、B列に yymmddhhmm001　←　2009年12月13日3時25分に実行した場合は0912130325001 yymmddhhmm002 yymmddhhmm003 ・・・ ・・・ のように記載したいと思っています。 VBA初心者ですので、ものすごく簡単なことを質問しているかもしれませんがご教授頂ければ幸いです。 宜しくお願いします。

初心者ですが、 どなたか、エクセルのセル１つを、 テキストファイル出力できる方法をご存知ですか？ 詳細には、 エクセルファイルの列Aの内容がテキストファイル名で、 列Bの内容が本文であるテキストファイル出力を 約３０００個、順次したいと考えています。 例えば、エクセルファイルに以下のようなデータを保持しているとします。 列A　　列B 001　　あいうえお 002　　かきくけこ 003　　さしすせそ この場合、001.txtは本文が「あいうえお」、 002.txtは本文が「かきくけこ」、 003.txtは本文が「さしすせそ」というように、 エクセル1行についてテキストファイルを1つ作成したいと考えています。 このような処理を短時間で実施するのに適した方法をご存知の方がいらっしゃいましたらご教示いただければと思います。 どうぞよろしくお願いいたします。

こんにちは、お世話になっています。 表題のとおり、VBA内でコピペした値が、コピペ先の書式で表示ができなくて困っています。 状況としては、「指定したシート1上の範囲内のセルの文字列をコピーし、シート2で指定したセル内にペーストする」ということを行いたいのですが、貼り付けた値はコピペ元の書式で表示されてしまい、一度各セルをアクティブにしないとシート2の書式が適用されません。 どうすればアクティブにしなくても正常表示できるか、お知恵を貸してください。 なお、作成にあたり以下の条件があります。 (1)運用時に全シートはパスワード保護されるため、値に対しての入力や修正、及びショートカットやボタンによる動作は不可 (2)コピー元の書式は「文字列」固定、コピー先の書式は「ユーザー定義」固定で、さらに各行ごとに定義が異なる (3)当マクロはファイル呼出時に自動的に実行される 以下、ソースコードになります（Excel2003 SP3、VB6.5で作成） Dim first_Row As Integer 'シート1のデータ先頭行 Dim first_Col As Integer 'シート1のデータ先頭列 Dim last_Row As Integer 'シート1のデータ最終行 Dim last_Col As Integer 'シート1のデータ最終列 Dim first_KeyNo As Integer 'シート2のキー番号先頭行 Dim last_KeyNo As Integer 'シート2のキー番号最終行（今回省略） （中略、↑のデータを各ワークシートからセット） Dim i As Integer 'シート1のカウント用変数 Dim k As Integer 'シート2のカウント用変数 i = first_Row k = first_KeyNo 'データ最終行になるまで処理を繰り返す Do While(i >= first_Row and i < last_Row) 　　　　　'シート1と2のキーNoがイコールならセット 　　　　　If Worksheets("シート1").Cells(k, 1).Value = Worksheets("シート2").Cells(i, 2).value Then 　　　　　　　　　　Worksheets("シート1").Range(Cells(i, first_Col),Cells(i, last_Col).Copy 　　　　　　　　　　Worksheets("シート2").Range(Cells(k, 1),Cells(k, 20).PasteSpecial paste:=xlValues 　　　　　　　　　　Application.CutCopyMode = False 　　　　　'イコールでないなら、イコールになるまでシート2のキー番号を検索 　　　　　ElseIf Then 　　　　　　　　　　（中略） 　　　　　EndIf 　　　　　i = i + 1 　　　　　k = k + 1 Loop VBAは今回初めて作成するので、見づらいかと思いますがよろしくお願いいたします。

excel2003で、ある列のデータ値に対し、空白セルを抜かしたA個分のセルの合計値を隣の列に「A回前までの合計値」として作成したいのですが、VBAを使わずに、計算式だけでできないでしょうか。 簡単な様で、よく分かりません。 この質問文も伝わるか自身がありませんが、よろしくお願いいたします。 空白セルは、０も入力されていないセルで、データの性質上ランダムに出来ます、さらに連続する場合もあります。 データはさかのぼるので合計の列は、A個下から始まります。

Excelで、100*100マスくらいの表の各セルに、0-1200の数字がランダムに記入されています。 このセルの数字の範囲ごとに、自動で色分けするようなことはできないでしょうか？ 「0-100」は赤色 「200-300」は水色 ・・・ という具合です。 手作業でやろうとしたのですが、さすがに無理でした。。。 ご存知の方いましたら、よろしくお願いいたします。

エクセルで一つのブックにある複数のシートを一つのシートにまとめる。 各シートには同じ形式の表（大きさも同じ）が１枚ずつあります。 それを一つのシートに、縦に並べて表示したい。 シートが１００枚ぐらいありますので、ひとつひとつコピーするのは 大変です。 よろしくお願いします。

Sub 静的変数() Static x As Long x = x + 10 MsgBox x End Sub このプロシージャーを実行するとXの値がどんどん加算されていきますが マクロを実行してない時にxの値を取得する方法はありますか？ スッテプインやウォッチウインドウで確認すれば、マクロ実行中にxの値を確認できますが マクロを実行してない時に調べる方法があれば教えてください。 ちなみにウォッチウインドウで見てみると 値は＜対象範囲外＞ 型はＥｍｐｔｙとなります。 （もしマクロを実行してなきゃわからないというのであればそれでも大丈夫です）

指定セルを押すたびにそのセルを罫線で囲んだり、囲んでたものを消すマクロを作ることは可能でしょうか？

任意の範囲で表からデータを抽出することができるのでしょうか？ 行は100行で列は7列、1行めは項目行で、1列目の2行目から１番から99番までが割り当てられています。1行目の2列目から7列目まで項目が割り当てられています。その他のセルには数値や文字データが入力されています。 こんな表から、任意に、例えば10行目から35行目までのセルデータ全てを別シートに取り出すそんな抽出方法があるのでしょうか？皆目検討がつきません。もし可能ならどなたかお教え頂けませんか？

エクセル自動実行のマクロを作成中にうまく動かないので サンプルをコピーして、変更してみたのですが そのサンプルも動いません、マクロとは違う何か悪いのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim intColor As Integer If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B2:B11")) Is Nothing Then Exit Sub Select Case Target.Value Case Is <= 20 intColor = 3 Case 21 To 40 intColor = 46 Case 41 To 60 intColor = 9 Case 61 To 80 intColor = 10 Case Is > 80 intColor = 5 End Select Target.Font.ColorIndex = intColor Application.EnableEvents = True End Sub

エクセル自動実行のマクロを作成中にうまく動かないので サンプルをコピーして、変更してみたのですが そのサンプルも動いません、マクロとは違う何か悪いのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim intColor As Integer If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B2:B11")) Is Nothing Then Exit Sub Select Case Target.Value Case Is <= 20 intColor = 3 Case 21 To 40 intColor = 46 Case 41 To 60 intColor = 9 Case 61 To 80 intColor = 10 Case Is > 80 intColor = 5 End Select Target.Font.ColorIndex = intColor Application.EnableEvents = True End Sub

皆さん、教えてください。 WindowsXPsp3、Excel2003使用です。 タイトルのまんまですが、例えば A1には1 A2には2 A3に=A1+A2という関数をいれてまして、 答えは勿論3ですが、 そのA3のセルの答えの【3】の所に、【答えは3です。】 とか入れたいんですが、やり方がわかりません、、、 色々調べたんですが、、ご教授くださると助かります。

皆さん、教えてください。 WindowsXPsp3、Excel2003使用です。 タイトルのまんまですが、例えば A1には1 A2には2 A3に=A1+A2という関数をいれてまして、 答えは勿論3ですが、 そのA3のセルの答えの【3】の所に、【答えは3です。】 とか入れたいんですが、やり方がわかりません、、、 色々調べたんですが、、ご教授くださると助かります。