ykymtktのプロフィール

こんにちわ、jixyoji-と申しますm(._.)m。 ＶＢをやっていてOracleサーバーとの連動処理で困ってることがあります。 フォームデザインでは商品マスタデータの「商品ID」、「商品名」、「単価」の３つのデータをテキストボックスへ表示しそして「先頭へ」、「前へ」、「次へ」、「最終へ」というコマンドボタンと連動させてコードを作成してるのですが、そのフォーム内にもう１つLabelを作成し商品マスタデータ12件の内容の何件目を表示させるか、「1/12」を最初にして2件目なら「2/12」、3件目なら「3/12」として動かしたいのですがどうすれば宜しいでしょうか(+_+)？ 宜しくお願いしますm(__)mペコ。

Win98 FirstEdition VB6 SP3 Excel97 SR1 上記の環境において、下記のソースのように、VBからExcelを起動してデータを出力した際、Excelのブックを閉じると、「保存しますか？」の「はい」「いいえ」関わらず、あるいはブックをセーブした後閉じても、Excelが異常終了してしまいます。 ブックではなく、Excel自体を閉じた場合は全く問題ありません。 どなたか対処法をご存じな方いらっしゃいませんか？ Dim objXls As Object Dim objBook As Object Dim objSheet As Object Set objXls = CreateObject("Excel.Application") objXls.Workbooks.Add objXls.Visible = False Set objBook = objXls.ActiveWorkbook Set objSheet = objBook.Worksheets(1) （中略） objXls.Visible = True

１．a.exeでShell関数でb.exe起動したときにa.exeはみれなくして 　　b.exeで終了するとb.exeはなくなりa.exeだけにしたいのですが 　　どうすればよいのかおしえてください。 　　a.vbp 　　RetVal = Shell("c:\b.exe", 1)　　　←　b.exeの起動 b.vbp end ←　終了 　　b.exeが起動中はヤククにa.exeがなくなり、b.exeが終了すると 　　a.exeが起動するようにしたいのです 　　よろしくお願いします。 　　WINDOWS98でvb6.0で開発しています。 　　

ＶＢ初心者です。 以下のコード（実際のものと根幹は同じです）でＥｘｃｅｌを扱いたいのですが、 終了の処理をしている（つもり）にも関わらず、ＥＸＥを終了するまで Ｅｘｃｅｌが終了してくれません。 画面上は終了しているのですが、ＥＸＥ起動中にｘｌｓファイルを開くとシートを表示してくれないのです。 どなたか正しい方法を教えてください。 Dim xlbook As Excel.Workbook Dim xlsheet As Sheets Dim H As Integer Dim W As Integer H = ImNumber1.Text W = ImNumber2.Text Set xlbook = CreateObject("Excel.sheet") Set xlsheet = xlbook.Worksheets Workbooks.Open App.Path & "\稼動確認.xls" Worksheets("稼働確認書").Activate xlbook.Application.Visible = True xlsheet.Application.Cells(H, W).Value = ImText1.Text ActiveWorkbook.Save Workbooks.Close xlbook.Application.Quit Set xlbook = Nothing Set xlsheet = Nothing

例えば、 １２、３００ という数字入力されていて その数字から １万円が１枚 千円が２枚 ５百円が０枚 １００円が３枚 というふうに 金種で分けることのできる 計算式ってあるのですか？