回答数
気になる
-
エクセルで数字とアルファベットと文字列を分割する方法
こんばんは。 エクセルのセルで数字とアルファベットの文字列を分割する方法を教えて下さい。 100AB3.4C → "100" "AB" "3.4" "C" 間にスペースやカンマなど無く、文字数は異なります。 数字は小数点がある場合と無い場合があります。(上記の "100" "3.4" のように) 同じ列に同様のデータが数件~数千件あり、まとめて分割したいです。 関数もしくはマクロ(VBA)で可能であれば教えて下さい。 最近マクロの勉強を初めたのですが、方法が思いつきません。。。 宜しくお願いします。
質問日時: 2008/02/06 23:28 質問者: cim202
ベストアンサー
6
0
-
バッチファイルについて・・・
バッチファイルというのはVBから操作できないのですか? Shellを使っているのですが、うまくいきません。 バッチファイルをダブルクリックするとうまくいくのです。。。
質問日時: 2002/06/21 11:37 質問者: hiro6295
ベストアンサー
6
0
-
条件付き書式4つ以上のVBAについて教えてください。
条件付き書式4つ以上でのVBAの作成方法を教えて下さい。 下記のような表があります。 A B C D E F G H I J K・・・ 1 開始日 終了日 開始日 終了日 開始日 終了日 開始日 終了日 4/1 2 3 4 ・・・ 2 2008/4/10 2008/4/20 2008/5/10 2008/5/20 2008/6/10 2008/6/30 2008/7/10 2008/7/19 (ここのセルに色をつけたい) 3 2008/4/03 2008/4/20 2008/5/10 2008/5/20 2008/6/10 2008/6/30 2008/7/10 2008/7/191 (ここのセルに色をつけたい) ・・・以下複数行 条件付き書式の設定方法 「数式が」「=AND(I$1>=$A1,I$1<=$B1)」の場合 「セルのパターンを(任意の色)」と設定 はわかるのですが、 開始日と終了日が4つ以上(実際は7つあります)あり これを1行に表したいのです。 各工程を色で表したいのです((1)工程A~B(セルの色:赤)、(2)工程C~D(青)…) できれば色をつけた上で、(1)工程と色がついたセルの上に入力したいです。 (※こちらは難しそうなので色をつける方法だけでもお願いします。)、 どうしてもVBAの設定がわからないので教えて下さい。よろしくお願い致します。 初心者なのでVBAの設定方法(どこに入力し、どのように実行すればよいか)も教えていただければ助かります!!
質問日時: 2008/05/01 20:40 質問者: yuumi2000
解決済
6
0
-
エクセルマクロ自動更新
マクロを1分おきに自動実行するには どうすればよいでしょうか? ※webクエリの更新時間と連動できるとなおよいです よろしくお願いします
質問日時: 2006/02/16 20:18 質問者: fsoyu
ベストアンサー
6
1
-
VBAについて
Excel97です、例えば セル A1 に入力し enterキーを押したら A5 がアクティブセルに B1 に入力しenterキーを押したら C5 がアクティブセルになるように するマクロの記述を教えてください。
質問日時: 2003/01/07 19:00 質問者: hoshi7777
ベストアンサー
6
0
-
プログラムでUSB機器が接続された事を認識するにはどうしたら良いのでしょうか?
プログラムでUSB機器が接続された事を認識するにはどうしたら良いのでしょうか? デバイスマネージャの出すメッセージを受け取る様にするのだと思うのですが、どうやって、どのメッセージを処理すのでしょう。 よろしくお願いいたします。
質問日時: 2003/06/23 10:13 質問者: Yoko317
解決済
6
0
-
タイマーの使い方
VB初心者です(6.0を使っています) タイマーの使い方がよく分かっていません。 ボタンを押してからの経過時間をラベルに表示させたいと思っているのですが、 ----------------------------------------------- Private Sub Command1_Click() Timer1.Interval = 1000 処理1 処理2 ・ ・ ・ Timer1.Interval = 0 End Sub Private Sub Timer1_Timer() Label1.Caption = [経過時間] End Sub ----------------------------------------------- という感じに書いていると、[処理1]~をしている間はラベルが表示されなくて、 最後の[処理]が終わった直後の[経過時間]のみが表示されます。 こういう形ではタイマーは使用できないのでしょうか? 他のWebサイトなども調べてみたのですが、解決できませんでした。 どなたか教えていただけませんでしょうか?
質問日時: 2003/07/10 14:05 質問者: sky_blue
ベストアンサー
6
0
-
Excel マクロ VBについて
今ExcelでVBを使い表の作成を行っています。その中で複数のシートが あり、各シートでは検索ができるのですが、TOPページ時にすべてのシートから条件に合うものを検索するというやり方がわかりません。 検索については以下のプログラムなのですが、これをどう変えればすべてのワークシート検索ができるかを教えてください。 ' 検索クリック時の処理 Private Sub Command検索_Click() MyTxt = Text検索.Value If MyTxt = Empty Then MsgBox ("検索するキーワードを入力してください") Exit Sub End If Set MyData = Range("A3").CurrentRegion Set MyFid = MyData.Find(MyTxt) If MyFid Is Nothing Then MsgBox ("該当するキーワードが見つかりません") Else MyKRow = MyFid.Row MyKRow2 = MyFid.Row For MyKcnt = 0 To 14 Val1(0, 0) = Cells(MyKRow, MyKcnt + 1).Value MyKmo(0, MyKcnt) = Val1(0, 0) Sheets("サーチ").Select Cells(4, MyKcnt + 1).Value = Val1(0, 0) Sheets("L").Select ' MyKmo(0, MyKcnt) = Cells(MyKRow, MyKcnt + 1).Value Next Sheets("サーチ").Select Cells(4, 15).Value = MyKRow Sheets("L").Select MyREC = 1 Form検索L.LabelREC = MyREC Form検索L.LabelROW = MyKRow List結果.List = MyKmo End If End Sub もし、説明不足の場合は補足しますので、どういう情報が必要かを いっていただけるとありがたいです。 よろしくお願いします。
質問日時: 2006/11/13 11:36 質問者: haku5877
解決済
6
0
-
EXCEL VBA で自在に図形を変化させたい(2)
前回,質問させてもらい、非常に役に立つ回答をもらい解決しました。 今回、いろいろ本を見ても解決できない問題がありましたので再度質問をします。 EXCEL上にコマンドボタンを一つ配置します。右クリック→プロパティ→オブジェクト名をCmd作図に変更しておきます。 デザインモードでボタンをダブルクリックしてVBEでコード表示にします。 Private Sub Cmd作図_Click() ActiveSheet.Shapes.AddLine 200, 200, 400, 400 End Sub これでEXCEL上のコマンドボタンを押すと直線が作図できます。 次にAddLine以下の数字を変えて再度実行しますと別の直線がかけるのですが最初の直線が残ったままですので重なったりします。 前回、回答では Private Sub Cmd作図_Click() With ActiveSheet For Each Sh In .Shapes Sh.Delete Next Sh ActiveSheet.Shapes.AddLine 200, 200, 400, 400 End With End Sub という回答をもらっています。こうすれば前回描いた線を消してから作図できます。 しかし、前回は「マクロの実行」ボタンからの作図でしたので問題にはならなかったのですが、今回、EXCEL上にコマンドボタンを配置したところ、コマンドボタンもShapesと認識してしまうらしく、線と一緒に消されてしまいます。 この問題を解決できるコードを教えてもらいたいのですが。 よろしくお願いします。
質問日時: 2005/01/16 09:16 質問者: kakusan_t
ベストアンサー
6
0
-
VBからoo4o接続でストアドを呼ぶ方法
お世話になります、 VBからoo4o接続でストアドを呼ぶ方法を探しています。 <現在の状況> ■ストアドパッケージ ・次のように値を返すストアドパッケージがあるとします。これを CreatePLSQLDynaset で実行して、レコードセットを取得します。(OraDynaset) create or replace package testp is procedure GetTestm(key in number, cu out CHAR); end; / create or replace package body testp is procedure GetTestm(key in number,cu out CHAR) is begin select NAME into cu from TEMP where STATUS=key; end; end; / ■VBのボタンイベント Private Sub Command1_Click() Dim dbname Dim cnuser '** サービス、ユーザ設定 dbname = "aaa" cnuser = "bb/bb" '** oo4o 接続 Set GoORASESSION = CreateObject("OracleInProcServer.XOraSession") Set GoORADATABASE = GoORASESSION.OpenDatabase(dbname, cnuser, &H0) '** リクエリレコードセットオープン Set Recordset = GoORADATABASE.CreatePLSQLDynaset("Begin testp.GetTestm (1,:cu); end;", "cu", &H0) End Sub これを実行したところ以下のようなエラーが出ました <エラー> ____________________________ 実行時エラー '440' SQL実行エラー,ORA-06550:行:1、列:7 PLS-00306:'GETTESTM'の呼び出しで、引数の数または型が正しくありません ORA-06550:行:1、列:7 PL/SQL:Statement ignored _______________________________ というエラーが出てしまいます、引数の数は合っていると思うのですが、どこがお菓子のでしょうか? よろしくお願いします。
質問日時: 2001/11/13 14:11 質問者: noname#1752
ベストアンサー
6
0
-
Accessのフォームで必須入力など
お世話になってます。 Access2003を使って、簡単な入力フォームを作っています。 そこで、A・Bというフィールドが存在するとして、Aはコンボボックスのフィールドで、「パターン1」と選択すると、Bのフィールドは選択はできずに、「パターン2」と選択すると、Bのフィールドが選択できるようにするのには、どのような設定が必要になるのでしょうか? どうぞ、よろしくお願いいたします。
質問日時: 2005/09/20 12:21 質問者: hazzy_funky
ベストアンサー
6
0
-
一定時間操作されないと自動で終了させる方法
プログラムが一定時間操作されない状態(マウス操作やキー操作)が続くと 自動的にプログラムを終了させたいのですが どうすれば実現できるのでしょうか?
質問日時: 2002/08/30 11:29 質問者: mk_jmc
ベストアンサー
6
0
-
グラフ表示の仕方 教えてください
随時データを取得して、それを折れ線グラフで描画したいと思っています。 また一定期間をスクロールさせて表示できるようにしたいのですが、ピクチャボックスとスクロールバーを使用すれば出来るでしょうか? アドバイスまたはサンプルのプログラム等がありましたら教えて下さい。
質問日時: 2002/09/21 15:40 質問者: aioi_k
ベストアンサー
6
0
-
TextBoxのプログラムについて
氏名:Text1 に氏名を入力しデータベースを検索 (1)Text1に入力がない場合、エラーメッセージを表示し再入力 入力されていた場合 (2)データがあった場合には、顧客コード:Text2は入力不可 (3)データがない場合に、顧客コード:Text2は入力可 という風にしたいとします。 1.[Enter]を押されたら、Text2が入力可ならText2へ 不可ならText3へ 2.[TabIndex]はText1:1 Text2:2 Text3:3になっているとし 3.マウスで項目移動できる 4.終了ボタンで終了することができる という操作をしたい場合に、どのイベントにどういう内容をコーディングしたらいいのでしょう? 他の質問に答えていて、ちょっと不安になりました。 皆さんの方法を教えてください。 できれば、Text1でコーディングするすべてのイベントについて知りたいのです。 また、こういう仕様の方がよいというアドバイスでも結構です。 特に入力チェックのタイミングを教えて頂ければと思います。
質問日時: 2002/09/27 01:55 質問者: taisuke555
ベストアンサー
6
0
-
エクセルのマクロについて教えてください
エクセルで、その行の中に赤色のセルがある場合は、その行のA列のセルに"○"を入れるというのは、マクロで書く場合はどのように書けばよいでしょうか。 行は1~100まで、列はA~Zまであります。赤色のセルはB列~Z列の所々に点在します。
質問日時: 2008/06/12 15:17 質問者: noche_gote
解決済
6
0
-
アプリケーション作成ソフトを探しています。
タイトルでは誤解があるかと思いますが、 VBで、アプリケーションファイルを作成する必要が、発生しました。 (いわゆるハスプの組み込みを命じられました。) が、当社はVBを持っていません。 購入の予定もございません。 フリーソフトで、VBコードでコンパイルまで出来る 物ってご存じでしょうか? また、ハスプの組み込みにはC、C++のAPIも 用意されているみたいですが、アプリケーション作成 ソフトをご存じの方、お教え下さい。 お願いします。
質問日時: 2006/05/24 10:14 質問者: yoshi5029
ベストアンサー
6
0
-
ExcelのCSVファイル出力について
Excelが出力したCSVファイルを扱うプログラムに関する質問です。 Windwosの[コントロールパネル]⇒[地域と言語のオプション]で、 小数点の記号を「.(ピリオド)」から「,(カンマ)」に変更しました。 するとExcelからCSVファイルを出力したときの各データの区切り文字が 「,(カンマ)」から「;(セミコロン)」に変わるようなのですが、 これに対応できるプログラムを作りたいと考えています。 CSVファイルの区切り文字は、Windowsのロケール情報として プログラム上から取得可能なのでしょうか?
質問日時: 2005/04/20 18:25 質問者: mm44
ベストアンサー
5
0
-
VBでファイルの判定
VBでドラッグドロップやcommondialogなどで読み込まれたファイルの拡張子の判定をしたいのですがどうしたらよいかわかりません。 たとえば、テキストファイルが読み込まれるとテキストボックスに表示、ほかのファイルが読み込まれると違う処理をするというようなことをしたいのですがわからないので教えていただきたいです。
質問日時: 2001/06/13 11:09 質問者: yabagi
解決済
5
0
-
エクセルVBAで
全シート保護(保護の解除)のコードなんですが、パスワードを求めない形にするには下記をどうすれば良いのですか? Sub 全シート保護の設定() Dim Sh As Worksheet x = Application.InputBox("パスワードを入力して下さい", Type:=3) For Each Sh In Worksheets Sh.Protect (x) Next Sh End Sub Sub 全シート保護の解除() Dim Sh As Worksheet On Error GoTo ErLine Do x = Application.InputBox("パスワードを入力して下さい", Type:=3) Loop While x = "False" For Each Sh In Worksheets Sh.Unprotect Password:=x Next Sh Exit Sub ErLine: y% = MsgBox("パスワードが違います ! 終了します", 48) End Sub 毎度すみませんがよろしくお願いします。
質問日時: 2005/06/28 11:53 質問者: LINERS
ベストアンサー
5
0
-
VB初心者です
計算結果が"7"の時に限り、「当たり!」と表示される、ちょっと意味不明な計算機を作っています。 現在、下記のように書いてますが、何故かうまくいきません。(当たりが表示されない 何故でしょうか?お助けください。。m(_ _)m Private Sub Command1_Click() Label1.Caption = Str(Val(Text1.Text) + Val(Text2.Text)) Label3.Caption = "+" Label4.Visible = False '画像を隠す。 'いずれかの数字が「7」のとき、メッセージを表示する。 If Label1.Caption = "7" Then Label4.Visible = True End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Label1.Caption = Str(Val(Text1.Text) * Val(Text2.Text)) Label3.Caption = "*" End Sub Private Sub Command4_Click() Label1.Caption = Str(Val(Text1.Text) - Val(Text2.Text)) Label3.Caption = "-" End Sub Private Sub Command5_Click() Label1.Caption = Str(Val(Text1.Text) / Val(Text2.Text)) Label3.Caption = "/" End Sub
質問日時: 2005/07/03 15:07 質問者: yoyoyouyou
ベストアンサー
5
0
-
VB6でコモンダイアログにバグ?がある
VB6でコモンダイアログにバグ?があるということ聞いたことがあるのですが、具体的な内容はわかりません。この問題は解決できるのでしょうか? このコンポーネントの代わりになるものはあるのでしょうか? VB6で作成して、.NETに移行しますが、このコンポーネントの使用は避けた方が良いでしょうか?
質問日時: 2007/10/25 11:55 質問者: hdkoa
ベストアンサー
5
0
-
Do文を使い方について
以下のようにループ内で2回ほど変数を更新したいのですが、追加情報 : ファイルにこれ以上データがありません。とエラーが出ます。どのように修正したら良いでしょうか? 'login.CSVファイルを開く FileNo = 1 FileOpen(FileNo, fileName, OpenMode.Input) 'logout.CSVファイルを開く FileNum = 2 FileOpen(FileNum, fileName2, OpenMode.Input) Do Until EOF(1) Do Until EOF(2) 'ファイルから読み込んだ内容を変数に保存する() 'login変数() Input(FileNo, setD1) Input(FileNo, setD2) Input(FileNo, setD3) Input(FileNo, setD4) 'logout変数() Input(FileNum, setDa) Input(FileNum, setDb) Input(FileNum, setDc) Input(FileNum, setDd) 'log表示() Debug.WriteLine(setD1) Debug.WriteLine(setD2) Debug.WriteLine(setD3) Debug.WriteLine(setD4) 'logout表示() Debug.WriteLine(setDa) Debug.WriteLine(setDb) Debug.WriteLine(setDd) Input(FileNo, setD1) Input(FileNo, setD2) Input(FileNo, setD3) Input(FileNo, setD4) Debug.WriteLine(setD1) Debug.WriteLine(setD2) Debug.WriteLine(setD4) Loop Loop の用に組んでみたのですが…初心者ですみませんがお願いします。
質問日時: 2005/08/28 21:33 質問者: 0417
ベストアンサー
5
0
-
VisualBasicのよるBASICプログラムの実行の可否
初心者な質問ですが、VBでBASICのプログラムを動かすことは可能ですか?VC++でC言語は動かせるようなんですが今度BASICのプログラムを動かすことになってVBを買う予定なんですが、果たして動くのかわかりません。よろしくお願いします。
質問日時: 2005/09/03 11:22 質問者: strikeout
ベストアンサー
5
0
-
VB6プログラムの実行中でのこと
VB6で作成したプログラムを実行していると、突然フリーズしたように 約10秒程止まる場合があります。一度、この現象が現れるとそれ以降は普通に 動作します。 実行するたびにこのようになります。 考えられる原因や対応方法などありましたら教えてください。
質問日時: 2002/01/14 15:09 質問者: yukotoaiko
ベストアンサー
5
0
-
演算について
演算についてよくわからないのですが、 Dim KeiA As Integer = 80 Dim KeiB As Integer = 70 Dim KeiC As Double = 61.08 Dim KeiD, KeiE As Double KeiD = KeiA - KeiC KeiE = KeiB - KeiC デバック時に自動変数で見てみると KeiDは18.92 KeiEは8.9200000000000017 になってしまいます。なぜKeiEは8.92ではないんでしょうか。
質問日時: 2005/09/20 13:32 質問者: sakasakasa
ベストアンサー
5
0
-
VBAで変数定義の必要性について
==(1)================= Dim abc As Long abc = 5 ===================== ==(2)================= abc = 5 ===================== あるパソコンで(2)のコードで 「オブジェクトまたはライブラリが見つかりません」 とのエラーになります。(多数のパソコンでエラーになりません) VBAに対して、変数が定義されなくても、値をセットされた際に、 変数属性を与えるとのように考えれば良いですか。 以上、よろしくお願いします。
質問日時: 2005/11/01 18:05 質問者: amysmile
解決済
5
0
-
Access+VB コンボックスに値を追加?
フォームで実行されている時に、コンボックスで選択値以外の数値(文字列)を入力したら、自動的にその値をコンボックスの選択値に追加する方法はないですか? 値集合タイプはテーブルです。 値リストでは実行中は出来そうなんですが、終了後追加した分は残らないみたいです。 どこかのサイトでその方法を見たような気がするんですが。
質問日時: 2005/11/30 23:57 質問者: situmonnsya
ベストアンサー
5
0
-
VB.NETで起動したEXCELのシートに作成したCommandButtonのコードの記述について
VB.NETからEXCELを起動し、シートにCommandButtonを作成しました。 このCommandButtonのコードをどこに記述すればいい のかわかりません。 初歩的な質問で申し訳ありませんが、どなた様か、よろしくご教授下さい。
質問日時: 2005/12/15 16:58 質問者: keitakuna
ベストアンサー
5
0
-
変数・オブジェクト名に漢字使用
事務機器操作の派遣社員ですが、 時々VBで簡単なプログラムを組んでいます。 VBでは変数・オブジェクト名に漢字が使える(例外もありますが) のを知ってから、積極的に漢字を使って名前をつけてます。 アルファベットだとどれがコマンドやら、ぱっと見で わからないなーと思いまして。 でも、漢字で名前をつけるとリソースを消費するとかで あんまりよくないと聞きました。 今の職場ではそんなに大掛かりなものは作らないので 大差ないと思うのですが、 やっぱり本職の方(プログラマ)は漢字とかは使われないのでしょうか?
質問日時: 2002/07/25 19:54 質問者: koyuki2001
ベストアンサー
5
0
-
DB接続を動的に切り替えたい
VS2005を使用してウェブアプリを作成しています。 アプリ内でDBに接続しているのですがローカル環境で開発しているときとウェブサーバで検証する時とで都度接続文字列を変えてWebServiceをアップロードしているのですが動的に判断して適切な接続文字を選択するようにすることは出来ないものでしょうか 開発環境:WINXP VS2005 .NET 2.0 処理の概要は以下です dim conn as string = DB接続文字列 ・・・この部分を動的に変えたい dim cmd as string = SQL文字列 dim adapter as new OleDbDataAdapter(cmd,conn) ・ ・ といった感じです。 良いアイディアがありましたら教えてください
質問日時: 2008/05/06 22:42 質問者: kimuragt
ベストアンサー
5
0
-
パソコン(エクセル)の文章をネットにつながずに携帯(ドコモ)で送信する方法
パソコンに入力した文章をドコモの携帯メール機能を使って、同じく携帯に送信するのは可能でしょうか? (1)セキュリティーのためパソコンはネットにつながっていません。 (2)パソコンはWindowsXP (3)エクセルのマクロ・VBAを使用して入力しています。
質問日時: 2008/05/19 23:25 質問者: shosin999
ベストアンサー
5
0
-
ベストアンサー
5
0
-
BASICの文法書はありませんか?
C言語はマスターしていますが、BASICは素人です。 Visaul BASICの参考書にはBASICの文法の説明はなかったと思います。 マイクロソフト系BASICの文法の説明の書いた資料はありませんか? ISOなどの規格書でも無料で手にはいるならかまいません。古本でもかまいません。 よろしくお願いいたします。
質問日時: 2006/04/29 21:21 質問者: masaone
ベストアンサー
5
0
-
文字列の置換
VB6で開発してます。 以下のようなことをやりたいのですが、 効率のよい方法はないものでしょうか? <やりたいこと> 文字列1の中にある『_』と同じ位置にある 文字列2の文字を『_』に置き換えたい。 [変換前] 文字列1:12_3456_ 文字列2:ABCDEFGH [変換後] 文字列1:12_3456_ 文字列2:AB_DEFG_ どなたかわかる方がいらっしゃったら教えて下さいm(_ _)m
質問日時: 2003/02/19 12:12 質問者: mybigbaby
解決済
5
0
-
VBでExcelファイルをテキストファイルにコンバートしたい
あるソフトからExcelファイルが出力されます。これを編集してテキストファイルにしたいと思います。大体できたのですが、まだ不具合があるのでお教えください。 Excelは、以下のコードで呼び出しています。 Set EX = CreateObject("Excel.Application") With EX.Application .Workbooks.Open (Pathname) .Visible = False .DisplayAlerts = False エクセルのデータをファイルに出力するコード .Workbooks.Close End With Set EX = Nothing (1)Excelのデータの範囲を知りたいのですが、以下のコードで検索すると結構時間がかかります。簡単に範囲を得る方法はないでしょうか?行と列と両方知りたいのですが。 lastcell = .Cells(Rows.Count, 1).End(xlUp).Address または lastRow = .Range("A65536").End(xlUp).Row (2)VBで作っているのですが、VBAで作るより時間がかかります。これは仕方ないでしょうか? 以上、よろしくお願いいたします。
質問日時: 2003/03/18 22:06 質問者: lily02
ベストアンサー
5
0
-
フォームのテキストボックス内での処理
●VB6.0を使用しているのですが、テキストボックスで全角スペースのみ又は半角スペースのみの入力をした時msgboxでエラー処理するにはどうしたらいいのでしょうか? ●またテキストボックスで半角英数しか入力できないようにする処理があれば教えていただけますか?
質問日時: 2006/07/11 21:41 質問者: DINO-PIE
ベストアンサー
5
0
-
VBAでの勤務時間計算
基本的なことですいません。 18:00-8:30といった勤務時間の計算をしたいのですが Range("C1")= Range("B1")-Range("A1") だと結果がでません。 昼休みや残業時間も計算しなければならないのですが まずは、単純に引き算すらできなくて困ってます。 ご回答の程よろしくお願いいたします
質問日時: 2006/09/01 07:11 質問者: newone
解決済
5
0
-
VBでPINGで問題・・・
こんにちわ。 ここの掲示板(http://oshiete1.goo.ne.jp/kotaeru.php3?q=96873)を参考にVBでPINGを実行するプログラムをやっています。 まず、上のURLの過去質問の回答2にありますソースをベースにしています。失敗したときのエラーメッセージを違うものにしてテストしました。 そうしますと・・・同LAN上にあるPCをターゲットにした場合は問題ないのですが、遠方のサーバなどをターゲットにしますと、ステータスが「0」以外、つまり失敗になります・・・。 DOSプロンプトではきちっと返ってきています。 0かそうでないか、だけの判断では識別できないのでしょうか? 宜しくお願いいたします。
質問日時: 2003/11/07 11:36 質問者: zenon55
ベストアンサー
5
0
-
VBにて指定した通りにExcelの列幅が設定されません..
こんにちは。 VBにて指定した通りにExcelの列幅が設定されず、困っております。 【現象】 VisualBasicから、Excelを起動し新規ブックを生成し、 ワークシートを指定して全列幅を「1.75ポイント」で 設定したいのですが、どうしても 列幅が「1.83ポイント」で設定されてしまいます。 VB側ソースでは、次のように書いております。 ワークシート(Index).Cells.ColumnWidth = 1.75 VB側で指定した列幅がExcel側で不都合というケースはあるのでしょうか..。 VB側で列幅を指定したにも拘らず、 Excel側で勝手に列幅を調整してしまう事はあるのでしょうか..? 【実行環境】 ・Visual Basic 6.0 ・Excel Ver2002 かなり急いでおります。 お忙しい中、恐縮ではございますが、 何かご存知の方、アドバイス等、頂戴できますと幸いです。
質問日時: 2006/11/08 07:48 質問者: maryanne39
解決済
5
0
-
なんと言うのでしょうか?(ポインター??)
Private Sub Form1_Load~ x=0 job_1() job_2() End Sub Private Sub job_1 x=x+1 End Sub Private Sub job_2 x=x+2 End Sub このようなのをなんというのでしょうか? (VB.NETです)
質問日時: 2004/02/17 14:27 質問者: hirosi_123
ベストアンサー
5
0
-
VB6.0でタイピングゲームを作りたい
VB6.0でタイピングゲームを作る事は可能でしょうか? もし可能であれば、ボタンをキー配列分用意しないといけませんが、押すキー(アルファベット)によって、ボタンを判別させることは可能でしょうか? 例えば、ボタンを一つ用意し、以下のプログラムでアルファベットのAが押された時に通るようにしたい場合はどうすればよいのでしょうか? Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub
質問日時: 2004/03/16 14:36 質問者: jones0901
ベストアンサー
5
0
-
前のセルの入力規則を見て、さらに入力規則で・・・
入力規則のリスト表示の方法について教えていただきたいのですが・・・ A列 B列 A,B,C A-1,A-2,A-3,B-1,B-2,B-3,C-1,C-2,C-3 A列に、A,B,Cと入力規則を設定します。 B列には、A列に入力したAに関係するA-1,A-2,A-3、 Bに関係するB-1,B-2,B-3、Cに関係するC-1,C-2,C-3 を入れたいのですが、B列のリストが多くなりすぎるので、A列にAを入力したときはA-1,A-2,A-3のみをリストに表示させることは、可能でしょうか?(B,Cについても同じ) よろしくお願いします。
質問日時: 2004/04/09 10:36 質問者: ken123
ベストアンサー
5
0
-
Excel2000で、特定のシートを新規ブックに保存したい
マクロ実行中のブックの特定のシートを新規ブックに保存したいのです。 特定のシートは、任意で複数枚あるとします。 但し、クリップボードや、Activeメソッド、Selectメソッドなど、 マクロ実行中に、Windowsの他のアプリケーションに 影響の出る恐れがあるロジックは使用しないとします。 また、特定のシートには、罫線や色の設定なども してあり、新規ブックに書式も保存します。 以下のコードは、クリップボードを経由せず、セルをコピーしています。 Sub a() Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsSheet As Excel.Worksheet Set xlsApp = CreateObject("Excel.Application") Set xlsBook = Workbooks.Add '★1 Set xlsSheet = xlsBook.Worksheets(1) '★2 ThisWorkbook.Worksheets("Sheet1").Range("A1:D200").Copy _ Destination:=xlsBook.Worksheets("Sheet1").Range("A1:D200") xlsBook.Close xlsApp.Quit Set xlsApp = Nothing Set xlsBook = Nothing Set xlsSheet = Nothing End Sub このコードは、ちゃんと動きます。 しかし、問題があります。 xlsApp.ScreenUpdating = False xlsApp.Visible = False など上記のコードに追加すると、新規ブックの操作できません。 ★1の部分で、 Set xlsBook = Workbooks.Add としているからです Set xlsBook = xksApp.Workbooks.Add とすると、 xlsApp.ScreenUpdating = False xlsApp.Visible = False など、新規ブックの操作ができます。 しかし、 Set xlsBook = xksApp.Workbooks.Add では ★2の ThisWorkbook.Worksheets("Sheet1").Range("A1:D200").Copy _ Destination:=xlsBook.Worksheets("Sheet1").Range("A1:D200") で、「RangeクラスのCopyメソッドが失敗しました。」 とエラーが発生します。 何か良い方法はありますか?
質問日時: 2007/02/10 10:07 質問者: lokki3
ベストアンサー
5
0
-
vbpが開けない!!
自宅のPCに「VisualBasic5.0」をインストールしたのですが、VisualBasicのプロジェクトファイルが開けません! 開こうとすると、「問題が発生したためVisualBasicを開けませんでした。」というエラーがでます。 これはインストールの仕方が悪いのでしょうか?
質問日時: 2007/02/13 23:08 質問者: okwebsama
ベストアンサー
5
0
-
エクセル マクロで行き詰まりました。助けて・・・
エクセル初心者です。初心者にも関わらず、マクロに挑戦して壁にぶち当たりました。やはり限界です。教えてください! <やりたい事> SHEET1に必要項目を入力してから計算開始ボタンを押す。計算結果を別シートに表示させると同時に、ボタンを押す毎にその計算結果を履歴として積み重ねる。 今回の計算結果 A B C D E 1 四月 20 30 40 2 9 履歴 10 2回前 六月 40 30 40 11 1回前 五月 30 40 50 12 今回 四月 20 30 40 うまく説明できませんが、数式セルを値だけコピーして、ボタンを押す度に自動改行しながらペーストをするというマクロなんだと思うんですが・・・。 非常に困っています。どうか宜しくお願いします。
質問日時: 2007/04/13 14:47 質問者: exceling
ベストアンサー
5
0
-
Visual Basic 6.0
Visual Basicで 100から1までの数の中で3で割ると2あまる数を大きい順にでるようにプログラムしたいのですがどのようにすれば良いでしょうか? 詳しい方教えてください。
質問日時: 2007/05/31 16:12 質問者: noname#31389
ベストアンサー
5
0
-
コントロール配列の動的配置について
ソース上でコントロール配列を動的に配置する場合の手法が解りません。 フォーム上に貼り付けられたコントロール配列を、動的に可変させるにはLOAD/UNLOADなどで良いようですが、1つめの要素(0)から動的に生成させる事は出来ないものでしょうか? ご存知の方いらっしゃいましたら、よろしく手ほどきのほどお願いいたします。
質問日時: 2001/06/13 11:17 質問者: Juanjo
ベストアンサー
5
0
-
VB6.0 SHELLで起動したプログラムを終了さしたいのですが
(1)メインプログラムから電卓を実行します。 Shell("C:\WINNT\system32\CALC.EXE", 1) (2)メインプログラムで電卓を終了させるにわ、どうすればいいのですか 教えてください。
質問日時: 2001/10/25 13:49 質問者: chiba-masaru
ベストアンサー
5
0
-
Visual Studio .NET (MSDN) には OSが付いてるって本当?
Visual Studio .NET (MSDN) には Windows2000 PRO (Win XP) Visual Basic 6.0 が同封されてるって本当ですか? 中にはオフィスも付いてる物もあるって 聞いたのですが本当でしょうか?
質問日時: 2005/07/22 20:44 質問者: COS_BUSTER
ベストアンサー
5
0
-
画像を上キーで小さく、下キーで大きくする
この前、お世話になった小4のKunpaです。 前回で質問した、RPGについてですが、実を言うと、ほぼ3D感覚のゲームを 作ろうとしています。 その為には、最前面と、画像を大きくしたり、小さくしたりして、遠近感を 出さなければなりません。その為、上キーを押したら、前に進むため、 キャラの向きを奥にし、それを小さくしなければなりません。 そのやり方を教えていただければいいのですが・・・ まだVBやり始めなので、よろしくお願いします。
質問日時: 2001/12/14 18:15 質問者: kunpa
ベストアンサー
5
0
【Visual Basic(VBA)】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Visual Basic(VBA)】に関するコラム/記事
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が途中...
-
【マクロ】並び替えの範囲が、その...
-
【マクロ】オートフィルター を非表...
-
Vba Array関数について教えてください
-
Vba 型が一致しません(エラー13)...
-
【ExcelVBA】値を変更しながら連続...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教えてく...
-
【ExcelVBA】5万行以上のデータ比...
-
VBAでセルの書式を変えずに文字列を...
-
【マクロ】開いているブックの名前...
-
Vba セルの4辺について罫線が有るか...
-
vb.net(vs2022)のtextboxのデザイン...
-
Excel VBA 選択範囲の罫線色の変更...
-
【マクロ】売上一覧YYYYMMDDHHSS.xl...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコピー...
-
WindowsのOutlook を VBA から操作する
-
Excel 範囲指定スクショについて Ex...
-
【マクロ】シートの変数へ入れるコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有るか...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデータ比...
-
【マクロ】売上一覧YYYYMMDDHHSS.xl...
-
【マクロ】開いているブックの名前...
-
【マクロ】並び替えの範囲が、その...
-
エクセルの改行について
-
エクセルのマクロについて教えてく...
-
vb.net(vs2022)のtextboxのデザイン...
-
VBAでCOPYを繰り返すと、処理が途中...
-
VBA ユーザーフォーム ボタンクリッ...
-
エクセルのVBAコードと数式について...
-
エクセルのVBAコードについて教えて...
-
[VB.net] ボタン(Flat)のEnable時の...
-
【マクロ】変数を使った、文字の種...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報