cistronezk の回答履歴

ＡＳＰでデータベースから値を引き出して計算させるプログラムを書いているのですが、計算結果の小数点が何桁か指定できなくて困っています。 --------------- HTMLのヘッダ等 <% Do While Not ObjRS.EOF Response.Write "ＢＭＩ値" Response.Write (ObjRS("TAIJYUU")/ ( ObjRS("SINTYOU")* ObjRS("SINTYOU")))*10000 ObjRS.MoveNext %> ------- のように計算させると小数点がズラーっと並んでしまいます； tmp=Mid("------",X,Y) Response.Write"<p>抽出:&tmp を使えば指定文字数だけ抽出できるのかな考えたのですが、これをどこにどう入れたら良いのか分からず悩んでいます…； わかる方いましたら、お手数ですがよろしくお願いします。

条件　(1)exp(-at)<x 　(2)exp(-bt)<y と二つの条件があるとする． （a,b,x,yは定数とし，tは時間でdo文でまわすとする) 例えば，IF(　(1)　.AND.　(2)　)THENとすれば，「(1)　かつ　(2)」となり，つまり，「時間的に，(1)・(2)がどちらが先に条件を満たしたとしても良い」とういうことですよね． 今回，私が作ろうとしているプログラムは 「(1)が先に条件を満たした後に，(2)の条件を満たすなら」というIF文を作りたいのです．（　(2)の条件が先に満たしてしまう場合は除きたいということです） こういう場合はどういった表記をすればよいのでしょうか． 下手な文章で読みにくいかもわかりませんが，アドバイスをお願いいたします．

QNo.5398295の質問の続きです。 おかげさまで月から月への勤続年数を求められるようになりました。 入社が1月ですと、たとえば8年12ケ月となってしまいます。この場合のみ9年と言う標記になりますか？ また、勤続年数から37ケ月（3年と1ヶ月）をマイナスする時にはどのような式になりますか？ よろしくお願いします。

Ａｃｃｅｓｓを利用して顧客管理をしています。顧客基本情報tableの顧客ＩＤと予約表tableの顧客ＩＤを繋げて予約日と予約者名をクエリで出しています。 ところが、検索時になぜか入力した日とは別の日に入れ替わって予約者名が出てきてしまうことがよくあります。例えばＡさんを１０月26日で入力したのに（別紙に記録が残っています)、10月30日の予約者としてでてきてしまうのです。なので26日の時点でＡさんが予約者とは知らずに受け付けで混乱してしまいます。 予約表クエリを開くたびに、同じ日付で違う答えが返ってきてしまうこともあります。（人数が増えていったりとか） どうしたら良いでしょうか？教えてください。

「VBSでメール件数カウント」の続きなのですが、 「受信フォルダ」の下にサブフォルダがあった場合の、 件数カウントはどうすればよいでしょうか？ 試しに作ってみましたのですが、自信がないので、 よろしければ診ていただけないでしょうか？ ------------------------------------------------------------ Private Function Cnt_MailItem Cnt_MailItem = 0 Set oApp = CreateObject("Outlook.Application") Set oNs = oApp.GetNameSpace("MAPI") Set oFol = oNs.GetDefaultFolder(6) '受信アイテイム Cnt_MailItem = oFol.Items.Count 'サブフォルダカウント Cnt_MailItem = Cnt_MailItem + Cnt_SubFol(oFol) msgbox "メール数：" & Cnt_MailItem End Function 'サブカウント Private Function Cnt_SubFol(byVal pFol ) 'サブがない場合は数えない If pFol.Folders.Count <= 0 Then Exit Function End If For i = 1 To pFol.Folders.Count Set oItems = pFol.Folders.Item(i) Cnt_SubFol = Cnt_SubFol + oItems.Items.Count + Cnt_SubFol(oItems) next Set oItems = Nothing End Function ------------------------------------------------------------ よろしくお願い致します。

「VBSでメール件数カウント」の続きなのですが、 「受信フォルダ」の下にサブフォルダがあった場合の、 件数カウントはどうすればよいでしょうか？ 試しに作ってみましたのですが、自信がないので、 よろしければ診ていただけないでしょうか？ ------------------------------------------------------------ Private Function Cnt_MailItem Cnt_MailItem = 0 Set oApp = CreateObject("Outlook.Application") Set oNs = oApp.GetNameSpace("MAPI") Set oFol = oNs.GetDefaultFolder(6) '受信アイテイム Cnt_MailItem = oFol.Items.Count 'サブフォルダカウント Cnt_MailItem = Cnt_MailItem + Cnt_SubFol(oFol) msgbox "メール数：" & Cnt_MailItem End Function 'サブカウント Private Function Cnt_SubFol(byVal pFol ) 'サブがない場合は数えない If pFol.Folders.Count <= 0 Then Exit Function End If For i = 1 To pFol.Folders.Count Set oItems = pFol.Folders.Item(i) Cnt_SubFol = Cnt_SubFol + oItems.Items.Count + Cnt_SubFol(oItems) next Set oItems = Nothing End Function ------------------------------------------------------------ よろしくお願い致します。

v = Cells(i, 1).Resize(, 7).Value MsgBox Join(Application.Index(v, 1, 0), ",") として1～7列目を表示させているのですが、 2列目だけは表示しないようにしたいです。 つまり、1と3～7列目までを表示させたいのですが、 どのようにしたら良いでしょうか？ 教えてください。

A,B,C列にある「ん」「あ」「う」を「あうん」と表示する式をご教示いただき入れてみたのですが、「9250うん」と表示されます。 データを「X,Y,W」に入れ替えてみたのですが、「４桁の数字,X,Y」となります。入れた式は下記のとおりですが、どこが違うのでしょうか？ {=CHAR(SMALL(CODE($A$2:$C&2),1))&CHAR(SMALL(CODE($A$2:$C&2),2))&CHAR(SMALL(CODE($A$2:$C&2),3))} 実際に適用したいのは、離れた3列で、表示は別シートになるのですが、その場合同様の考え方で可能でしょうか。 自分としては、シート名をどこに入れようか迷っていたのと、範囲指定はCtrl+列選択でいいのかな？と思っていたのですが・・。

エクセル2003を使用しています。 VBAで、下記のように、起動時にメッセージを表示させているのですが、 表示されたダイアログの「ＯＫ」を押さないと、ダイアログが消えないのと同時にエクセルの編集ができません。 --------------------- Sub Auto_Open() MsgBox "******" End Sub --------------------- このダイアログを、指定した時間で、自動で消えるようにできるのでしょうか？ ご教授いただけます方、どうぞ、よろしくお願い申し上げます。m(_ _)m

宜しくお願い申し上げます。エクセルでアンケート用紙を作りました。セルｈ３～ｈ３５までに各問いの答えが「数字（１～５）」で入っています。約３００人分で、各々ａｎｋｔ１～ａｎｋｔ３００と名前を付けてエクセルファイルで保存してあります。それからｈ３に１は何人？ｈ３に２は何人？・・・ｈ３５に４は何人？ｈ３５に５は何人？と集計したいのです。エクセルの関数・マクロで出来る方法がありましたら、どうぞご教示下さい！≦(._.)≧

エクセルのシートが二つあり、以下の構成になっています。 解答用シート （A列：問題番号、B列：解答、C列：結果） 正解シート （A列：問題番号、B列：正解） 解答用シート、セルB2と 正解シートB2がイコールの場合、 解答用シート、C2に「○」、 その他は、「×」 を入力したいのですがどのような記述になりますでしょうか？ また繰り返し処理は以下になります。 繰り返し処理 解答用シートのB列の入力がある場合。 またすべての処理が終わった後、 「正解率は○％です」 というメッセージを出したいのですが・・・ どなたかご教授いただけると助かります。 宜しくお願いします。

ふたつのエクセルファイルの比較について質問です。それぞれ約２０００社の企業が記載されている新・旧ふたつのファイルがあります。新しいファイルは今年の取引企業で、古いファイルは昨年の取引企業です。新旧どちらのファイルにも記載されている企業だけを一発で抽出することはできないでしょうか？１企業ごとに重複しないランダムの６桁数字コードをふってあります。同じセル番地の違いを見つける方法はわかったのですが、ランダムな数字順のため、両方のファイルに存在する企業が旧ファイルでは３行目に記載されていて、新ファイルでは７０行目に記載されていたりしています。アドバイスいただきたくよろしくお願いします。

エクセルのシートが二つあり、以下の構成になっています。 解答用シート （A列：問題番号、B列：解答、C列：結果） 正解シート （A列：問題番号、B列：正解） 解答用シート、セルB2と 正解シートB2がイコールの場合、 解答用シート、C2に「○」、 その他は、「×」 を入力したいのですがどのような記述になりますでしょうか？ また繰り返し処理は以下になります。 繰り返し処理 解答用シートのB列の入力がある場合。 またすべての処理が終わった後、 「正解率は○％です」 というメッセージを出したいのですが・・・ どなたかご教授いただけると助かります。 宜しくお願いします。

ふたつのエクセルファイルの比較について質問です。それぞれ約２０００社の企業が記載されている新・旧ふたつのファイルがあります。新しいファイルは今年の取引企業で、古いファイルは昨年の取引企業です。新旧どちらのファイルにも記載されている企業だけを一発で抽出することはできないでしょうか？１企業ごとに重複しないランダムの６桁数字コードをふってあります。同じセル番地の違いを見つける方法はわかったのですが、ランダムな数字順のため、両方のファイルに存在する企業が旧ファイルでは３行目に記載されていて、新ファイルでは７０行目に記載されていたりしています。アドバイスいただきたくよろしくお願いします。

マクロ初心者です。 すでにインターネットとエクセルが開いている状態とします。 エクセルのマクロ【モジュール】で すでに開いている「インターネットエキスプローラを閉じ」 尚、開いている「エクセルも閉じる」 っと言うマクロ【モジュール】を教えてください。 ヨロシクお願いします。

あるフォルダにエクセルのファイル"A"があります。 この"A"はほぼ毎日更新され内容が新しくなっていきます。 アクセスで、このエクセルのファイルをインポートし、あるテーブルの最後のレコードの下に追加したいのですが、クリック1つでこの動作を行える様にしたいです。 しかし、この"Ａ"が以前インポートした時から更新されていれば、インポートをし、以前インポートした時から更新されていなければ、インポートをしない様にしたいのです。でないと、クリックした時に、以前と同じデータを追加してしまうので、新しいデータだけを追加できる様にできますか？ この"A"は会社の他部署が更新していき、又、アクセス側でインポートをするのもバイトの方が行うので、この様にミスができない様にしたいのです。誰か教えて下さい。よろしくお願いします。

あるフォルダにエクセルのファイル"A"があります。 この"A"はほぼ毎日更新され内容が新しくなっていきます。 アクセスで、このエクセルのファイルをインポートし、あるテーブルの最後のレコードの下に追加したいのですが、クリック1つでこの動作を行える様にしたいです。 しかし、この"Ａ"が以前インポートした時から更新されていれば、インポートをし、以前インポートした時から更新されていなければ、インポートをしない様にしたいのです。でないと、クリックした時に、以前と同じデータを追加してしまうので、新しいデータだけを追加できる様にできますか？ この"A"は会社の他部署が更新していき、又、アクセス側でインポートをするのもバイトの方が行うので、この様にミスができない様にしたいのです。誰か教えて下さい。よろしくお願いします。

マクロ初心者です。 すでにインターネットとエクセルが開いている状態とします。 エクセルのマクロ【モジュール】で すでに開いている「インターネットエキスプローラを閉じ」 尚、開いている「エクセルも閉じる」 っと言うマクロ【モジュール】を教えてください。 ヨロシクお願いします。

ボタンを押すとエクスプローラでフォルダを開くという処理をしたいのですが、一部のフォルダのパスが分からず困っています。 開けないフォルダはMyComputer、コントロールパネル、ごみ箱などの仮想フォルダと呼ばれるフォルダです。 これらのフォルダにはSHGetSpecialFolderPath関数も通用しません。 どのようにすれば望みどおりの処理を実装できるのでしょうか？ どなたかご教授お願いします。 <環境> Windows Vista VC++ Express Edition

アクセス2003、ｖｉｓｔａを使用しています。 ｖｂａを使っていて、ＡＤＯを使っています。 アクセスを使っている間に いくつか修正したいところがあり、ｖｂａコードをいじって保存し、 ｖｂａを実行すると、 CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.FullName　←の部分で RS.Open "Qタイトル", CN, adOpenStatic, adLockPessimistic 実行時エラー '-2147467259(80004005)' 「マシン '<マシン名>' のユーザー 'Admin' が データベースを開けない状態、またはロックできない状態にしています。」 となります。 一度ファイルを閉じて再度開くと問題なく作業できますが これは何故起こるのでしょうか？ 一応調べてみましたが http://www.accessclub.jp/bbs/0017/beginers7727.html http://okwave.jp/qa4388870.html 解決には至りませんでした。 よろしくお願いします。