回答数
気になる
-
ExcelVBAで、オートフィルタについての質問
まず、オートフィルタをかけます。A列には月が入っています。ワークシートAには、1月、7月、8月が入っていて、ワークシートBには、2月、3月、4月、5月が入っていたりとばらばらです。 で、ExcelVBAでオートフィルタのかけ方は分かったのですが、このフィルタのかかった状態でA列に入っている要素を取得したいのです。例えば、ワークシートAなら1月と7月と8月というデータを取得したいのです。 こんなことはできますか?大きい本屋へ行って本を色々調べたり、ヘルプを見たりしたのですが、方法が分かりませんでした。 分かる方は教えてください。よろしくお願いします。
質問日時: 2005/02/08 23:19 質問者: kamkamkam3
ベストアンサー
3
0
-
ランダムに出来るTEXTファイルを読み出し(取込)張り付け方法
VB6.0にて作業です 一定時間ではなくランダムに出力されるテキストファイルで、それもファイル名もそれぞれ違うファイルを出力だれた時間順に同エクセルbook内のシート分けで取り込む方法を教えて下さい。 例えば 0分 1234.text → Sheet1 2分後 2121.text → Sheet2 2分15秒後 4321.text → Sheet3 と言う具合にしたいのですが、ファイル名が決まっており、ある一定の時間で出力されるファイルの取込は出来るのですがファイル名も時間もその時々で違うのがどうも出来ません教えて下さい。
質問日時: 2005/02/17 10:12 質問者: masaojisan
解決済
3
0
-
Word, Excel, PowerPointで2バイト文字検索
お世話になります。 Word, Excel, PowerPointのデータ(ファイル)にある2バイト文字を検索し、順番にハイライト表示(選択状態)にしていく処理をVBAで作りたいと考えています。 当方はC言語やPHPのプログラミングの経験はあるのですが、VBやVBAは初めてでして中々思うように作成が出来ません。 現在はとりあえず試験的に以下のようなプロシージャを作成し、メッセージボックスで表示するところまでは作成出来ています。 Sub check_2byte_stirngs(text As Object) moji_len = Len(text) byte_len = LenB(StrConv(text, vbFromUnicode)) If (moji_len <> byte_len) Then '2バイト文字発見 For i = 1 To Len(text) one_char = Mid(text, i, 1) If LenB(StrConv(one_char, vbFromUnicode)) <> Len(one_char) Then MsgBox one_char End If Next End If End Sub これに以下のような機能を追加したいと思っています。 ・「次へ」を表示するダイアログを付ける(その場で編集可能にしたいのでMsgBoxは使わない) ・見つかった文字の場所までカーソルを移動させて選択状態にする どちらか一方でもお分りの方がいらっしゃいましたら、ご教示願いますでしょうか。 以上、宜しくお願い致します。
質問日時: 2005/03/14 18:57 質問者: deka_pink
ベストアンサー
3
0
-
Visual Basic 6.0 Proについて(2)
コンニチワ VBで Private Sub .... if a="1" then ここにルーチンを抜ける記述 . text1.text="1" . . . End Sub (....は省略の意) のように書いたとき if a="1" thenの後に このルーチンを抜けさせたいのですが どうやったらいいのでしょうか? また、VBにおけるサイズ表記を(オブジェクトなどの大きさなど) をピクセルに変換するときはどのようにしたらよいのでしょうか? 詳しい方、わかる方よろしくお願いします
質問日時: 2001/02/12 14:43 質問者: jhiphop
ベストアンサー
3
0
-
FTPサーバからファイルをダウンロードするには?
WINDOWS2000、VB6.0、SP5で開発しています。 FTPサーバからファイルをダウンロードするやり方がわからなくて、困っています。 例えば、コマンドボタンを押した時に、指定したファイルをダウンロードしたいのです。 色々と調べてみたのところ、Winsockコントロールを使うとできるかもしれない、 というところまでは分かったのですが、そこからさっぱりです。 今日一日、調べていますがわかりません。 どうか、先輩方のアドバイス、よろしくお願いしますm(_ _)m
質問日時: 2005/05/10 16:03 質問者: KOHEI_JAPAN
ベストアンサー
3
0
-
半角/全角文字混在データの分割方法
VB6.0にて、あるデータ項目の内容を、画面上の2つの表示領域に分割して セットする方法を教えて下さい。 あるファイルの項目として、「住所」という項目があるとします。 このデータを取得し、画面に表示する際に、「住所1」「住所2」とに分割して、 セットします。 この場合、ファイル上の「住所」は、キャラクタタイプで40バイトと定義されており、 ”半角/全角文字混在”でデータが格納されています。 画面上の、「住所1」「住所2」はそれぞれ、20バイトとします。 この様な条件で、単純に取得したデータを2分割すると、 取得したデータが、全て半角か全角なら問題はないのですが、 例えば、1文字目が半角で、以降が全て全角文字だった場合に、 最後の全角文字がぴったり収まらなくなり、うまく表示できないように思います。 また、文字を取得する際に、使用している、Mid(MidB)関数やLen(LenB)関数も、 うまく利用できていないようです。(コード体系の違いでしょうか?) どなたかご教授下さい。 よろしくお願いします。
質問日時: 2001/05/03 18:29 質問者: BAD_LIFE
ベストアンサー
3
0
-
VB2005 ランダムにテキスト出力
既出でしたら申し訳ありません。 VB2005 EXPRESS Editionにて、テキストボックスに「りんご」と入力しButtonクリックすることで、「りんご」を含むそれ以下の文を別のテキストボックスにランダムに出力したいのです。 「りんご」以下の文は、あらかじめ用意したものを使用します。 例 テキストボックス1に「りんご」と入力後、Buttonクリック ↓ テキストボックス2に「りんごが食べたい」と出力。 「が食べたい」の箇所は数10~100パターンぐらい自分で用意。 (を食べたい、が好きだ、は腐っている、など) 「りんご」以下の文を格納する方法はどのようにしたらよいのでしょうか? データベース(?)などの勉強が必要でしょうか? そしてさらに、「りんご」と「みかん」という2つの単語をテキストボックス1に半角カンマで区切って入力した場合、テキストボックス2に「りんご」と「みかん」が反映されるランダムな文章が作成されるプログラムも作りたいと考えています。 例 テキストボックス1に「りんご,みかん」と入力後、Buttonクリック ↓ テキストボックス2に「りんごかみかんが食べたい」と出力。 こちらも「か」と「が食べたい」の箇所はあらかじめ用意した、数パターンの中からランダムで接続詞や文章を使用したいのです。 ご助力いただければ幸いです。 よろしくお願いいたします。
質問日時: 2007/08/30 05:20 質問者: metal3100c
ベストアンサー
3
0
-
WshShellから起動したbat(ftp)の応答メッセージを取得するには
下のbatファイルをDosプロンプトから起動した場合は resulf.logに230 User zerokara logged in.と出力されますが、 これをVBからWshShellオブジェクトのExecメソッドで起動しますと resulf.logにftpの応答メッセージ(230 User zerokara logged in.など)が 出力されませんのでfindできずエラーを返してしまいます。 よろしければ、この現象の意味とWshから起動した場合にresulf.logに ftpの応答メッセージを出力する方法を教えてください。 宜しくお願いします。 test1.bat ftp -s:C:\VB\ftp_test.scr >resulf.log type resulf.log | find /i "230" IF NOT %ERRORLEVEL% == 0 GOTO ERROR copy 命令
質問日時: 2005/05/23 14:51 質問者: zerokara
ベストアンサー
3
0
-
初心者です。アクティブセルを下のセルに移動させる方法
アクティブになっているセルに何か入力されていたら 下のセルに移動するというのはどうすればいいのでしょうか? またとある列以外ををアクティブにするとエラーが出るようにしたいのですが、どうしたらいいでしょうか? いろいろ試しているのですが上手くいきません、どなたかお願い致します!
質問日時: 2005/05/27 19:57 質問者: megumi0808
ベストアンサー
3
0
-
exeファイルの作り方
VB勉強用として買った本に、著者の自作ソフトウェアのソースコードと実行可能ファイルが入ったCDがあるんですが、そのデータをデスクトップにコピーしてexeファイルをつくって自分で著者が作ったソフトを使いたいなぁと思っています。exeファイルを作るにはどうしたらいいか調べたところ、ファイル-exe~ でできるらしいのですが、そのようなものが見当たりません。 どうやればexeファイルがつくれるのですか? Visual Stadio2005を使用しています。
質問日時: 2007/09/13 00:01 質問者: noman777
解決済
3
0
-
コマンドボタンの文字が消える!
VB6でアプリケーションを開発しEXEを作成しました。 自作のパソコンなどでは問題ないのですがSOTECのS253LP(OS Win2000Pro SP2)で走らせたところ、コマンドボタンの文字が全て消えてしまいました。 当方では自作のパソコン(3台 スペックは様々)とSOTECが1台だけですので その他のパソコンでの現象が確認できません。 同じような症状の出ている方や、その直し方など、ご存知であればお答え願います。 #SOTECにWin2000Proを載せること自体間違っているかもしれませんが・・・
質問日時: 2001/07/04 10:16 質問者: xiaolong_goo
ベストアンサー
3
0
-
VBAでの選択範囲内の削除方法。
Excel2003でVBAを使っています。 まず、VBAである範囲(例えば、A1からK20)を指定した後、その範囲内にある値の中で、aaaとbbb以外の値のセルを空白セルにしたいのですが、どのようにしたらよいのでしょうか? aaaとbbbの入っているセルを空白セルにする場合と、aaaとbbb以外の値が入っているセルを空白セルにする方法を教えてください。 宜しくお願いします。
質問日時: 2005/06/02 17:34 質問者: RRHH
ベストアンサー
3
0
-
VB6のロストフォーカス時の処理をキャンセルしたい。
textbox1 textbox2 textbox3 があったとします。 textbox1には ロストフォーカス時にエラー処理が入っています。 登録、終了ボタンがあり、登録ではエラーではじいていいのですが、 終了ボタンの場合、エラー処理を回避(キャンセル)する方法はないでしょうか? こんな感じで 終了.click textbox1.lostfocus の処理をキャンセル end
質問日時: 2007/09/22 00:09 質問者: D-Scopion
解決済
3
0
-
VB6からExcelにマクロが使われているかを知るには
VB6でExcelファイルを読み込み、各シートにマクロが使われているかを 知る方法を探しております。(ブック単位でもよいです) Worksheetsオブジェクトのプロパティにはなさそうですし、 何か情報をお持ちの方、ご教授いただければと思います。
質問日時: 2007/10/03 17:25 質問者: ramusan731
解決済
3
0
-
Excel2000のマクロが上手くいきません
はじめまして、よろしくお願いします。 仕事で下記のような条件のマクロを作っています。 全くの初心者ですが、 いろんなHPを見て例文を書き写したりしながらなんとか作ってみたのですが、 ですが、どうしても上手く実行されません。 お恥ずかしい話ですが、 ものすごく根本的な簡単なミスをしているだと思うのですが、 どの部分が間違っているかも正直分からなくなってきました。 ご教授いただければ幸いです。 「AAファイルのS1シートのA2~B10をBBファイルのS2シートA2~B10へコピーし、 BBのS2シートB2~B10までの中でデータの入っていない行は削除する」 マクロはBBファイルに書き込んでいます。 また、AAとBBの両方を開いて実行もしています。 Sub Workbooks("AA.xls").Worksheets("S1").Range("A2:B10").Copy _ Workbooks("BB.xls").Worksheets("S2").Range("A2") Application.ScreenUpdating = False On Error Resume Next With Columns("A2:A10") .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True .SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True .SpecialCells(xlCellTypeVisible).EntireRow.Delete .EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub お手数おかけいたしますが、よろしくお願いいたします。
質問日時: 2005/06/26 02:12 質問者: may_way
ベストアンサー
3
0
-
指定したシートの行間の非表示
通常のシートの行間の非表示設定では、ユーザーが再表示ができるので、指定した行の非表示をVBAのコードで記述したいのですが、うまくいきません。 以下のコードですと Sub 計算表の部分非表示() '計算表の部分非表示 Sheets("計算表").Select Worksheets("sheet1").Rows("5:22").Visible = xlVeryHidden End Sub インデックスエラー 有効範囲にありません とかエラーが出ます。 他に見せなくする方法はありますか? 図の固定をしてとかで隠す方法とか? でも、マクロを記述しているのでシート保護ではうまくいかないようです。 よい解決方法を教えて下さい。
質問日時: 2005/07/01 18:35 質問者: dmura
ベストアンサー
3
0
-
オブジェクトの外部出力
Vbのオブジェクトをファイルに保存したいのですが、方法が解りません。 例えば、スプレットシートの(*.frx)ファイルのようなイメージで、 プログラムから、ある機能を呼んだ際に、ファイルからオブジェクトを 取得して、フォーム等に貼り付けるといったものです。 私の考え方そのものが、間違っているのでしょうか? どなたか、教えください。 ちなみに保存したいものは、"TreeView"の"nodes"です。 よろしくお願いいたします。
質問日時: 2001/10/18 13:46 質問者: ks-777
ベストアンサー
3
0
-
ワイルドカードは使用可能?
別途、「Matchの処理について」というご質問を させていただいて一旦は問題が解決したのですが、 新たにまたわからない点が発生しまして、困ってます。 何度も申し訳ありませんが、皆様のお知恵を拝借できれば助かります。 状況としては下記のコード抜粋のように、コードを 記述していますが、"検索値A"の一部に対応するデータ についてはSheet2の特定の行にセットしたいのです。 つまり特定の検索値Aについては変数"j"を 固定したいと思っています。 その一部の"検索値A"というのは例えば"aaa300"、"bbb300"等、"300"で 終わるもので、これらは特定行に固定したいという 感じです。ワイルカードを使えないものかといろいろ 調べておりますが、よくわかりません。。 もし可能なら、行番号をあらわす変数"j"のデータを セットする際に"if"を使って、条件分岐したいと思っています。 以上、よろしくお願い致します~。 検索値A = Sheets("sheet1").Cells(i, 1).Value j = Application.Match(検索値A, Sheets("sheet2").Range("範囲A"), 0) Sheets("Sheet2").Cells(j, 5).Value = Sheets("SHEET1").Cells(i, 2)
質問日時: 2005/07/09 18:08 質問者: ayaka_ikeike
ベストアンサー
3
0
-
VB2005でUTF-8からshift_JISに変換する方法
VB2005の初心者です。 UTF-8のXMLデータで、一部日本語の項目が化けているのでshift_JISに変換したいのですが、やり方が分りません。 下記のとおり、XMLデータから項目を抽出して、ログに出力すると化けてしまいます。 Dim CreatorInfodNode As Xml.XmlNodeList CreatorInfodNode = xmlDoc.SelectNodes("/Mml/MmlBody/MmlModuleItem/docInfo[@contentModuleType=contains(@contentModuleType,'patientInfo')]" + _ "/mmlCi:CreatorInfo/mmlPsi:PersonalizedInfo/mmlPsi:personName/mmlNm:Name/mmlNm:fullname", nsmgr1) LbLogFlg = WriteLogFile("fullname:" + CreatorInfodNode(0).InnerText.Trim) ↓ログの出力結果 fullname:????????????????????? 皆様の知恵をお借りできれば幸いです。 よろしくお願い致します。
質問日時: 2007/10/30 18:30 質問者: machikado0
ベストアンサー
3
0
-
初心者ですが。
次のようなプログラムを作成するにはどんな本を買って勉強すればよいか 教えてください。 1.ランダムに数字(自然数)を打ち込む。 あらかじめ区分けされた数字群、例えば「23,34,201, 501,21,21,21」「43,53,102,582」・・・ 2.その区分けされた数字群をデータベースから抽出。 3.新たに、その区分けされた数字群順にデータベースを再作成。 集計のイメージと似ています。1から連番で見本があり、個々で 欲しい数字を書き込みそれを整理すると言ったようなことです。 データベースは1から連番。新しいデータベースは個々の 注文の数字ごとに整理されたもの。 といったようなプログラムを作りたいのですが、なにか良い本は ありますでしょうか。よろしくお願いいたします。
質問日時: 2001/11/06 11:59 質問者: kenta1005
ベストアンサー
3
0
-
VBをVBAに ソースコードあり
二度ほど こちらを利用させていただき、一歩ずつ理解してきているのですが、回りにVB、VBAを使っている方がいなく、相談出来る所がここしかなく また投稿させて頂きました 今回 迷っている事は VBのソースコードがあり それをVBAで実行する場合、どこで宣言すればいいのか という事です VBの~ソースコード~ メインふぉーむ データ受信関数 Private Sub RF720CLib_RFIDMessage(ByVal Message As String, ByVal MessageSize As Long) Dim code As String Dim cmd As String Dim body As String code = RF720CLib.GetResponseCode(Message, MessageSize) cmd = RF720CLib.GetCmdCode(Message, MessageSize) body = RF720CLib.GetResponseBody(Message, MessageSize) If code = "00" Then If cmd = "RD" Then For cnt = 0 To csvline - 1 If Vegetable(cnt).m_ID = body Then End If Next End If If cmd = "IS" Then ReadStep = ReadStep + 1 End If End If End Sub ↑ こちらで RF720CLib ライブラリーを使い RD リードなどを行ってるとは思うのですが VBAの場合 フォームをロード時に イベントとして宣言すればいいのでしょうか? それとも 上記のはVBですので VBAで使う場合 また新しく作り変えなければいけないのでしょうか? VBとVBAは全く違うもの として考えた方がいいのでしょうか RF720CLibは アクティブXコントロールでVBAでも使えました とても 困っております 宜しくお願いします
質問日時: 2007/11/15 23:00 質問者: _K_
解決済
3
0
-
Win32APIのFTPクライアントについて
SolarisサーバーからWininetAPIをファイル一覧を取得するFTPクライアントプログラムについての質問です。 FtpFindFirstFile関数を使用しWIN32_FIND_DATA構造体から取得したファイル名をリストボックスに表示しています。 このとき文字化けしてしまい正しいファイル名を取得できません。(タイムスタンプの同様です) EUCコードからS-JISへの変換が正しく行われていないようなのですが解決方法をご存知の方がおられましたら宜しくお願い致します。
質問日時: 2001/11/27 19:03 質問者: megxp
ベストアンサー
3
0
-
XPでVB開発しています。
こんにちわ。 いまXP上で,VB6.0で開発していますが, XP上ではVBのWITHブロックは使用しないほうが良い, とのうわさを聞きました。 なぜ使用しないほうが良いのでしょうか? 教えてください。宜しくお願いします。
質問日時: 2005/08/15 11:43 質問者: tatsurou
ベストアンサー
3
0
-
メールアドレスの文字列を@の左右でセルを振り分けるマクロを
Excelのsheetに、メールアドレスを(A1)から(A100)まで縦に表示したsheetがあります。 これをB列に@マークの左側(個人アドレス)、C列に@マークの右側(サーバーのアドレス)を表示させたいのですが、 出来るだけ簡単なマクロを作って示していただけませんか。 長く、VBAから遠ざかっていたため、自信がありません。 よろしくお願いします。
質問日時: 2005/08/22 12:35 質問者: noname#18526
ベストアンサー
3
0
-
ACCESS・VBAを利用者から隠す方法
ACCESSのVBAを使ったプログラムを製造していますが、ACCESSのVBAの場合、どうしても利用者に見えてしまいます。 EXCELのときは、確かコンパイルしてXLA形式にすると利用者からは見えなくなったのですが。 ACCESSのVBAを利用者から隠す方法を、どなたかご教授頂けませんか? 宜しくお願い致します。
質問日時: 2001/12/21 08:26 質問者: vboshietekudsai
ベストアンサー
3
0
-
ネット上どこからでも、SQLサーバに接続してデータを取得するには?
WINDOWSXP,VB6,SP5で開発しています。 ネット上ならどこからでも、指定したSQLサーバからデータを取得して、 表示させるみたいなプログラムを作っています。 今まではVBWEBというのをつかっていたのですが、 会社も開発も終わっているみたいで、使い方もいまいちよくわからないので、 違う方法で接続できたらなあと思っています。 普通はどういう方法で接続するのでしょうか? どうぞ、よろしくお願いしますm(_ _)m
質問日時: 2005/09/05 10:13 質問者: KOHEI_JAPAN
ベストアンサー
3
0
-
別フォームのスプレッドの内容を取得したい
VB.net2003とSPREAD for .NET Formsを使用して開発を行っています。 1つのプロジェクトに2つのフォームがあり、FormAのSPREADの内容をFormBから取得したいのですが、うまくいきません。 FormBのLoadイベントでFormAのSPREADの内容を取得するのに下記のようなコーディングを行ってみましたがだめでした。 Dim frmFormA As FormA = New FormA txtText.Text = frmFormA.スプレッド名.ActiveSheet.Cells(frmFormA.スプレッド名.ActiveSheet.ActiveRowIndex,0).Value 別フォームのSPREADの内容を取得する方法を教えてください。
質問日時: 2005/09/07 14:05 質問者: hara30s
ベストアンサー
3
0
-
計算結果がものすごく多いんですが。。。
今、画像処理のプログラムを作成中です。 それで、このような計算式がありまして、 Hue = (b-g) * (pai/3) Hueの計算結果がたくさんあって、数にして311,040個。 (Hueの単位は度で、0°~360°までです。) それで、その結果を配列にいれたいんです。 どうやって配列を作ればいいのか分かりません。 どなたか分かる方、詳しく教えて下さい!!
質問日時: 2002/01/30 18:29 質問者: butt-head
ベストアンサー
3
0
-
System.IO.Directory.GetFilesの順番
For Each strFileName As String In Directory.GetFiles("フォルダ名","*.TXT") 'なにか処理 Next strFileName としてファイル名を読み込んで処理する場合、ファイル名でソートされて順番に出てくるような気がします。 どのような基準でソートされるのかを調べているのですが、はっきり明記されているものが見つかりません。 安心して使うために裏付けがほしいのですが、どこかに詳細な資料はないでしょうか? よろしくお願いします。
質問日時: 2005/09/21 15:25 質問者: K6A
ベストアンサー
3
0
-
VB2005 フォームの再表示
プログラムを終了する時、“プログラムを終了しますか?”というメッセージを表示し“はい”ボタンを押すとプログラムを終了、“いいえ”ボタンを押すとプログラムを終了しないようにしたいのですが、“いいえ”ボタンを押すとフォームが消えてしまいます。この時プログラムは終了していません。消えているフォームを再度表示したいのですが、どうしたら良いのか分かりません。Me.Show()、Me.Refresh()とかを使用しても表示されません。現在のコードを記載しますのでどなたか教えて下さい。よろしくお願いします。 Private Sub MainDisp_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Dim resources As System.ComponentModel.ComponentResourceManager _ = New System.ComponentModel.ComponentResourceManager(GetType(MainDisp)) Dim msg As String Dim ret As String Beep() msg = My.Resources.msg001 resources.ApplyResources(msg, "msg") ret = MsgBox(msg, MsgBoxStyle.YesNo + MsgBoxStyle.Question, My.Resources.msg002) If ret = vbYes Then End Else Me.Show() Me.Refresh() End If End Sub
質問日時: 2008/01/17 09:55 質問者: shimakichi
ベストアンサー
3
0
-
クリスタルレポート
クリスタルレポートのバージョンは4.6です クリスタルレポートのフィールドで、 DBのフィールドサイズMAX値が20のものを サイズ10でだすことはできますか? DBのサイズのほうが印字サイズより大きく、 印字部分が途中で中途半端に印刷されて しまうのです。 式を指定すればいいのでしょうか? 教えてください。
質問日時: 2002/03/27 13:06 質問者: noname#2205
ベストアンサー
3
0
-
フォルダの下のファイルを検索
VBscripで次のようなことを実現させたいと思っています。 複数のフォルダが格納されているフォルダAがありその構造は *A----*AA---*AAA---ファイル(1) | |--ファイル(2) | |-*BB---*BBB---*BBBB---ファイル(3) | |--ファイル(4) | |-*CC---*CCC---*CCCC-*CCCCC---ファイル(5) | |---ファイル(6) | |---ファイル(7) |----*D |----*E となっています。 注)フォルダ名は仮です。*はフォルダにつけてあります。 このとき、フォルダAから検索を始めて ファイル名の○数字の偶数と奇数のファイルを分けて 奇数のファイルをフォルダD、偶数のファイルをフォルダBに 仕分ける動作をさせたいです。 ちなみにファイル名は「○○_1.txt」のように命名されています。 このときの仕分け方とプログラムがいまいちわかりません。 ご教授いただけると助かります。 よろしくお願いいたします。
質問日時: 2008/01/23 02:41 質問者: jin0711
解決済
3
0
-
並び替え
構造体を必要な時に動的に割り当てた後、伝票月の一致する店舗番号、店舗番号の一致する区分番号1、区分番号の一致する区分番号2を並び替えたいのですが、うまくいきません。SQL文でのORDER BY 文で並び替えると、店舗番号が飛び飛びになってしまいます。クイックソートやバブルソートで、伝票日付を並び替えた中で店舗番号を並び替える、など何か方法はありませんか? '伝票データを格納する構造体 */ Type Aa 伝票日付 as integer 店舗番号 as integer 区分番号1 as integer 区分番号2 as integer End Type dim Denpyo() as Aa
質問日時: 2002/04/01 13:16 質問者: aris
ベストアンサー
3
0
-
VBAについて
エクセルシートで任意に選択されたセルの個数を VBAのUserFormのTextBoxに表示されるのは どのようにしたらよいのでしょうか? 例)エクセルシートで、B2~D2をマウスで選択すると、 UserFormのTextBoxに3と表示されるようにする。 任意に選択されたセルの個数を求めるのは 以下のようにしました↓↓↓ ********************************* * Sub GetAreaValue() * Dim CELLNUM As Integer * CELLNUM = Selection.Count * End Sub *********************************
質問日時: 2005/10/30 21:09 質問者: gazo
ベストアンサー
3
0
-
VB が異常終了してしまう。
デバッガを終了させたり、アプリケーションを終了させたりすると Visual Basic が異常終了してしまいます。 OS は、Windows XP、VB は、6.0 SP6 です。 a
質問日時: 2008/02/08 10:43 質問者: den256
ベストアンサー
3
0
-
VBの勉強を始めたいのですが
はじめまして、私は独学でエクセルのVBAを学んだのですが、VBというものがあることを知り、より役立ちそうだと思いまして、勉強してみたいと思ったのですが、何から始めたらよいか、どなたか教えてくださらないでしょうか、お願いします。
質問日時: 2005/11/25 20:01 質問者: keiyoko29
ベストアンサー
3
0
-
ピクチャーボックス内でのイメージの移動
VBで小さなピクチャーボックスの中に大きなビットマップを表示させ、ピクチャーボックスの内部でそのビットマップを移動させたいのですが、ヒントを下さい。 丁度、望遠鏡の丸の中で、景色がスクロールするイメージです。
質問日時: 2002/06/03 18:24 質問者: noname#2635
ベストアンサー
3
0
-
VBでのシリアル通信
VB6 Professional Virsionを使用しています。 RS232Cでシリアル通信をしたいのですが、どうすればいいのでしょうか。ヒントを教えてください。
質問日時: 2002/06/17 23:48 質問者: noname#2635
ベストアンサー
3
0
-
Application.OnTime の使い方
エクセルのマクロで、過ぎた時間の背景を グレーにする予定表を作ろうとしてます。 試しに一秒ごとにグレーにしようと以下のものを書いてみたのですが 1セルしかグレーになりません。 理想としては1秒、2秒、3秒ごとに一つずつセルを変えたいです。 range * i で型の問題がある気がするのですが、 なにかアドバイスあればよろしくお願いします。 以下は関数のページです。 TimeValue http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vsfcttimevalue.asp OnTime http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbawd10/html/womthOnTime.asp ---------------------------------------------------- Sub timer() Dim range As Integer For i = 1 To 100 range = TimeValue("0:00:01") my_time = Now + (range * i) Application.OnTime my_time, "setBg" Next End Sub Sub setBg() Cells(Second(Now), 1).Interior.ColorIndex = 16 End Sub
質問日時: 2008/03/22 12:44 質問者: yasu182
ベストアンサー
3
0
-
フォーカスの移動
IMEソフトキーボードのようなものを作っています。 フォーム1にテキストボックスがあり、フォーム2をソフトキーボード。というように作りたいと思っているのですが問題があります。 コマンドボタンを押すごとに1文字ずつ送るような作りになっているのですが、1文字ごとにテキストボックスからコマンドボタンにフォーカスが移るため、2文字以上の文字列の変換ができないのです。VB的に無理なのかもしれないですが、IMEソフトキーボードのようにテキストボックスにフォーカスをセットしたままの文字入力を出来ないでしょうか?ちなみにkeybd_eventを使っています。 時間がありましたら、ご教授のほどよろしくお願いします。
質問日時: 2005/12/24 18:16 質問者: cross22
ベストアンサー
3
0
-
スクロールバーを点滅させない方法
いつもお世話になっております。 スクロールバーについて質問します。 VB6.0にて開発しています。 手動でスクロールさせるプログラムを作ったのですが、 スクロールバーにフォーカスがうつると 点滅します。これを止めたいのですが どのように設定すればよいのでしょうか。 コントロールはVScrollBarを使用しています。 あるいは他の種類のスクロールバーで 最初から点滅しないものなどありますでしょうか。
質問日時: 2002/07/16 19:04 質問者: chi-chan-n_n
ベストアンサー
3
0
-
VBレイアウトの落とし穴?
VB6.0について質問です。 フォームからコマンドボタンによりフォームを起動し重なるような形で表示されている状態なのですが 起動したフォームからコマンドボタンでメッセージボックスを表示すると起動したフォームが消えてしまいます。 メッセージボックスを終了すると再び消えたフォームは表示されるのですが、消えてしまう理由は何でしょうか?? できれば消えないでフォームの上にメッセージボックスを表示したいのです>< ご回答おねがいします、、、
質問日時: 2006/01/06 19:01 質問者: go_osaruku
ベストアンサー
3
0
-
VB.NETの書けるFreeのエディタ
VB.NETが作成できるFreeのエディタがあれば教えて下さい。 また、Eclipseでもかけるのでしょうか、何かアップグレイドが必要なのでしょうか。
質問日時: 2008/04/10 22:54 質問者: htgo
ベストアンサー
3
0
-
エクセルのVBAを使ってフォルダを削除したい
エクセルのVBAを使って、フォルダを削除したいのです。 たとえば、Dドライブにある、TESTというフォルダ配下のすべての ファイルおよびフォルダを削除したいのです。 有識者の方々、是非おしえてください。 また、それに伴う参照等の設定などがありましたら、付け加えて ご回答ください。 宜しくお願い致します。
質問日時: 2008/04/18 15:21 質問者: satosuke20
解決済
3
0
-
文字列を特定文字で分割したい
はじめまして。宜しくお願いします。 現在Access2002のVBAをつかってタイトルのようなことを実現したいと思っています。 Dim a As String Dim b As String という二つの変数を用意して 「C:\Documents and Settings\デスクトップ\test.csv」という文字列が与えられているとき 変数aには「test.csv」を、変数bには「C:\Documents and Settings\デスクトップ\」を 格納しようとしています。 スマートなやり方がわからず、 文字列の右から一文字ずつ比較して行き、何文字目に「¥」が出てくるかをカウントして、right関数とleft関数で分割を行っています。 このような処理を行う場合、なにか適した関数があると思い探しているのですが、 なかなか見つからず、行き詰っています。(そのような関数があるのかも分からず・・) もしもなにかお気づきの方が居られましたら、ご教授宜しくお願いします。
質問日時: 2002/08/26 16:02 質問者: takatoo
ベストアンサー
3
0
-
VB6で定時刻処理
VB6で1日1回、決まった時間に処理をさせたい、という場合、どういう方法で行うのが一番いいのでしょうか。 私が現在やっている方法は、 1分ごとにタイマーイベントを発生させ、その中で、現在の日時が指定の時刻だったら処理を起動する、という仕組みです。 しかし、これでは負荷状況によってはタイマーのイベントや、以降の処理が待たされ、時刻の判定をするタイミングで、すでに目的の時刻を過ぎてしまっているということが考えられます。 タイマーイベントが9:59:59秒に発生し、現在時刻を取りに行ったら10:00:00秒になっていたというようなケースです。 時刻の判断は、hh:mmのフォーマットで比較しているので、分の単位が違えば条件に合致しなくなります。 誤差範囲を設け、「現在の時刻-30秒 < 指定時刻 <= 現在の時刻+30秒」のような条件にすれば、ある程度回避できますが、1分以上待たされるようなケースでは対応できません。 このような状況を回避するにはどうしたらいいでしょうか。 処理を起動する時刻が可変なので、Windowsのタスクなどは使えないです。 ATコマンドをうまく使えばできるのでしょうか。 よろしくお願いいたします。
質問日時: 2006/02/01 16:10 質問者: undisclosed
ベストアンサー
3
0
-
おすすめのサンプルコード本
はじめまして。 visual basic6.0を使って独学で勉強しているのですが、どのような機能がありどういう事が出来るのかという知識が足りないばかりにプログラミングがなかなか進みません。ネットで検索をかけて調べるなどしているのですが、ヒットすることも少なく困ってます。 そこでサンプルコードが書かれた本を買って具体的にどのような事が出来るのかを一通り勉強したいと思っているのですが、その本でさえ大量にありすぎてどれが良いのかわかりません。 こんな本がいいよ。とかこれの本はわかりやすいよ。などおすすめの本がありましたら、お教えいただけませんでしょうか?お願いいたします。 ちなみにVBは『visual basic6.0パーフェクトマスター』(秀和システム)で勉強し、基本的な事は理解しているつもりです。
質問日時: 2002/08/31 11:34 質問者: noname#15820
ベストアンサー
3
0
-
ユーザフォームを使ってのデータの書き換え(エクセル)
sheet1に下記のように商品のデータ一覧が入っており、 価格の改定があった時に[単価]に新しい価格をいれ、 当初[単価]に入っていた価格を[旧単価]に入れるようを作っています。 コード 商品名 単価 旧単価 改定日 1111 商品A 1000 1112 商品B 1500 1113 商品C 1200 ↓ コード 商品名 単価 旧単価 改定日 1111 商品A 1100 1000 2008/5/2 1112 商品B 1500 1113 商品C 1200 <UserForm> コード [コードのTextBox] 商品名[商品名のLabel] 単価 [単価ののLabel] 新単価[新単価のTextBox] 改定日[改定日のTextBox] ユーザーフォムでテキストボックスにコードを入れたら、 コードを商品のデータ一覧から検索して商品名と単価を ユーザーフォムのLabel Captionに自動で表示されるようにしたいのです。 1.コードの入力 2.商品名、単価が表示される 3.新単価、改定日の入力 4.元のデータ(Sheet1)の書き換え 上記のような順序で考えていたのですが、 どうしてもコード入力からの検索表示が上手くいかないのです。 どうすれば良いのでしょうか? ※ユーザーフォームで[商品名][単価]をLabelにしてるのは、 数値・文字列として書き換えの必要がないので動かせないほうがいいのでは とういう個人的な思い込みからですので、特にこだわりはございません。 相当な初心者のため、少しばかり注釈をつけてくださる大変ありがたいです。 上記のよう順番でなくても、よい方法があれば教えて下さい。 よろしくお願い致します。
質問日時: 2008/05/08 00:37 質問者: cheesepie
ベストアンサー
3
0
-
フローチャート
VisualBasicの勉強を始めて1ヶ月ちょっと経ちます。 今、勉強中でいろいろなプログラムを作っているのですが まだ初心者のせいか前に作ったプログラムの処理の流れを忘れてしまいます。 そのたびにいちいちプログラムを見るのが面倒なので N88Basicの頃に書いていたフローチャートの様な物を書いて残しておきたいと思っています。 どなたかVisualBasicの処理の流れをうまくフローチャート化(?)する方法を知っている人教えてください。 よろしくお願いいたします。
質問日時: 2002/09/11 19:32 質問者: chachachar
ベストアンサー
3
0
-
SQL文のGROUP化について
いつも勉強させて頂いています。 環境 VB2008 SQLSERVER2005 条件を指定してグループ化をしたいのですが方法をご教授くださいませ。 例) 項目 値 AAA 100 BBB 200 CCC 100 DDD 300 上記データの場合 AAAとBBBを合算して値を表示(AS 'AB') CCCとDDDを合算して表示(AS 'CB') 表示後) 項目 値 平均値 AB 300 150 CD 400 200 いろいろと試していますが、いまいちうまくいきません。 宜しくお願いいたします。
質問日時: 2008/05/12 20:08 質問者: AS400VBNET
ベストアンサー
3
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 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報