chibita_papa の回答履歴

VisualStudio.Net 2005 SQL Server 2005 を使って、PDAにデータベースを閉じ込める方法を教えてください！！ PDAにデータベースを直接設置する方法です！！

ExcelVBAで作成したマクロでデータ抽出を行なっていたのですが、 数日前に動作していたマクロが、突然に、 「定数式が必要です」というエラーが出てきて動かなくなりました。 VBAの仕様が変わったのでしょうか？ ★エラーの発生したモジュール Option Explicit Dim MailCc As String Sub Mailer() （中略） MailTo = Cells(RW_TO, 2).Text ' 宛先 → MailCc = Cells(RW_CC, 2).Text ' CC （以下略） ★同一プロジェクトの別モジュール Global Const RW_CC = 18

たとえば ２～３２行目にそれぞれ４８列のデータがありその値が 1800以上ならばその同列の一行目の値を出力するというような プログラムをつくりたいのですが、 どのようにすればいいのでしょうか？ 宜しくお願いいたします。

使用ソフトウェア Microsoft Visual Basic 2005　Express ラベルに書かれている英語を読み上げる機能を追加したいのですが、どうやったらいいかさっぱりわかりません。。 まずspeech機能？を追加しなきゃいけなかった気がするのですが・・ なんという機能を追加したらいいかと、読み上げるコードのサンプルを教えて頂けると助かります。よろしくお願いします。

今の会社で、振替伝票と帳簿の記入を手伝っています。 私は経理ではないのですが、小さい会社なので何でもやらなければいけません。 先日から、ずっと振替伝票やら帳簿の記入をやっていますが 全く同じ内容を帳簿と振替伝票に書くのが、とても無駄な気がしています。 振替伝票と帳簿が必要なのはわかっていますが、「なぜに手書き？」と思うのです。 前の会社でも、振替伝票の記入を手伝ったりしてましたが、やはり手書きでした。 そこで質問なのですが、 振替伝票や帳簿は手書きでないといけないものですか？ 例えばエクセルなどでデータをつくっておけば、記入の手間も短縮できるし チェックの手間も半分以下に短縮できると思うのです。 ＜余談ですが＞ 先日、私が「重複してチェックしなければいけないし無駄だなぁ」と 思いながら作業をしていて、何か効率的に出来る方法はないかと 考えながらやっていました。 それがわかったのか、社長に「無駄な作業があると思ったら提案して」 と言われ、ドキっとしました(笑) だから、この考えを提案してみたいのですが、振替伝票は手書きでないと ダメだという決まりがあるなら、提案できないし・・・と思い ここで質問させていただきました。

下記で1データとして、そのデータが1万個くらいあるのですが、 このデータでは『41.8037834』の部分の値の上限と下限を指定して、 その範囲内データだけを抜き出し、抜き出したデータを新規ファイルに保存するプログラムを 作成中なのですが、データを読み込む部分で、つまづいてしまいました。 どなたかよろしくお願いします 105 4 18 22 10 55 25 300001 1 0.000 0.000 32.920 9.400 -25.60 -52.60 -2.70 -2.40 0.00 0.00 0.00 0.00 6.55 5.05 5.94 5.51 30581507.37 6086402.72 -623434.83 203142.10 655696.35 41.8037834 140.7141167 -23.10 -41.12 30581507.4 46510538.0 24324613.6 19914382.8 0.0 0.0 0.0 0.0 0.00 0.00 72 cm BT dB 0.45 0.042 12.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 16.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 20.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 24.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 28.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 32.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 36.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 40.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 44.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 48.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 52.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647 56.37 -32768 -32768 -32768 -32768 -32768 -32768 255 255 255 255 0 2147483647

指定する列の範囲はＡから始まり、Ｘ～Ｚ位までです。行は決まっています。先ず次の文で列の範囲を取得します。 Range("A1").CurrentRegion.Select I = .Selection.Columns.Count 例えば５行目のＩ列を指定する時はどうすれば良いでしょうか。 Range("A5:" & I & "5").Select では、エラーになります。

ExcelVBAのユーザーフォーム上で、テキストなどを編集する際に右クリックしてコピー＆ペーストとかのショートカットメニューを出したいんでけど、出せないものなのでしょうか？書籍などにはワークシート上で自作の右クリックのショートカットマクロを割り付ける、というTipsが掲載されていますが、参考にコードを書いてもうまくいきません。

ExcelVBAのユーザーフォーム上で、テキストなどを編集する際に右クリックしてコピー＆ペーストとかのショートカットメニューを出したいんでけど、出せないものなのでしょうか？書籍などにはワークシート上で自作の右クリックのショートカットマクロを割り付ける、というTipsが掲載されていますが、参考にコードを書いてもうまくいきません。

習い事を主催しています。 時に１ヶ月分、２ヶ月分で３万円以上もらうことがあります。 収入印紙を貼り忘れていたため税務署に聞いたら、 A「貼って領収書を渡し直してください」 私「渡せない人はどうしますか？」 A「税務調査が入ったときにペナルティを払うことになります」 という問答で終わりました。 税務調査が入ってくるのをオチオチ待っているわけにいきません。 貼り忘れた印紙代は数千円程度なのですが、どうやって 対応すればよいでしょうか？ 私としては、領収書の控えに貼っておくことを検討しております。 これでは印紙税を私が払ったことにならないでしょうか？ 税務職員より有益な回答をお願いします。

Excel2000のマクロでプログラムを組んでいます。 よろしくお願いします。 「DA21」や「DA30」という文字と数字が混じっている状態で 各数字の部分を1つだけ引いた状態にしたいのですが、 「DA」という文字の後ろにある数字だけ変えたい場合、 どのようなプログラムになるのか教えてもらえないでしょうか？ 例： DA21　→　DA20 DA30　→　DA29

事務用品を購入した際に 事務用品費　/　未払金 で、計上をします。 事務用品を使用した際に 未収金　/　事務用品費 と、計上します。 ※未払金と未収金は計上した日のうちに現金に振り返られます。 でも、そうすると、費用が相殺されてしまいますが、いいんでしょうか？ この仕訳の意味がよくわからないのですが、 わかりやすく、教えて下さい。

習い事を主催しています。 時に１ヶ月分、２ヶ月分で３万円以上もらうことがあります。 収入印紙を貼り忘れていたため税務署に聞いたら、 A「貼って領収書を渡し直してください」 私「渡せない人はどうしますか？」 A「税務調査が入ったときにペナルティを払うことになります」 という問答で終わりました。 税務調査が入ってくるのをオチオチ待っているわけにいきません。 貼り忘れた印紙代は数千円程度なのですが、どうやって 対応すればよいでしょうか？ 私としては、領収書の控えに貼っておくことを検討しております。 これでは印紙税を私が払ったことにならないでしょうか？ 税務職員より有益な回答をお願いします。

私は今、エクセルVBAで困ってます。 内容はデータを入力したエクセルのシート上で、別のファイル（CSV形式）を開いてある特定の行に入力したデータを参照し、完全に一致した際には、別のファイルの内容をシートに反映させるといったようなことは可能でしょうか？ 襲えて下さい。 回答お待ちしています。

Excel2000のマクロでプログラムを組んでいます。 よろしくお願いします。 「DA21」や「DA30」という文字と数字が混じっている状態で 各数字の部分を1つだけ引いた状態にしたいのですが、 「DA」という文字の後ろにある数字だけ変えたい場合、 どのようなプログラムになるのか教えてもらえないでしょうか？ 例： DA21　→　DA20 DA30　→　DA29

以下のマクロ実行時にたまにオーバーフローが出てしまい マクロが止まってしまうときがあります。 毎回出るのであれば、原因を突き止めやすいのすが、 出なくなると全く出なくなりとても困っています。 もしわかる方がいらっしゃいましたら、御教授して頂けると 幸いです。 内容：データが元々10個単位であり、Sheet1に500×10、 Sheet2に500×10のデータを2次元配列に格納する。 Dim RES_CAM1(1 To 4000, 1 To 10) As Integer Dim RES_CAM2(1 To 4000, 1 To 10) As Integer Sub Macro10() ' ' Dim i, j As Integer .................................................... .................................................... Sheets("Sheet1").Select For i = 1 To 500 For j = 1 To 10 RES_CAM1(i, j) = Cells((i - 1) * 10 + j, 19) ←　☆ Next j Next i Sheets("Sheet2").Select For i = 1 To 500 For j = 1 To 10 RES_CAM2(i, j) = Cells((i - 1) * 10 + j, 19) ← ☆ Next j Next i .................................................... .................................................... End Sub 上記☆のところでオーバーフローで止まったりします。。。

以下のマクロ実行時にたまにオーバーフローが出てしまい マクロが止まってしまうときがあります。 毎回出るのであれば、原因を突き止めやすいのすが、 出なくなると全く出なくなりとても困っています。 もしわかる方がいらっしゃいましたら、御教授して頂けると 幸いです。 内容：データが元々10個単位であり、Sheet1に500×10、 Sheet2に500×10のデータを2次元配列に格納する。 Dim RES_CAM1(1 To 4000, 1 To 10) As Integer Dim RES_CAM2(1 To 4000, 1 To 10) As Integer Sub Macro10() ' ' Dim i, j As Integer .................................................... .................................................... Sheets("Sheet1").Select For i = 1 To 500 For j = 1 To 10 RES_CAM1(i, j) = Cells((i - 1) * 10 + j, 19) ←　☆ Next j Next i Sheets("Sheet2").Select For i = 1 To 500 For j = 1 To 10 RES_CAM2(i, j) = Cells((i - 1) * 10 + j, 19) ← ☆ Next j Next i .................................................... .................................................... End Sub 上記☆のところでオーバーフローで止まったりします。。。

経理初心者のためぜひお知恵を拝借したく、お伺い申し上げます。 労働保険料は「福利厚生費」として仕分けをしているのですが、 毎月口座から引き落とされている社会保険料は「租税公課」でよいのでしょうか？何卒、お教えくださいませ。

VB6にて FileListBoxのPatternに AAA1*.csv を設定してみたところリスト内には AA1AAA.csv AA1BBB.csv AA2CCC.csv とAAA2～のAAA1以外のファイル名も出てしまいました。 なぜでしょうか？どうやったらAAA1～のみを表示させられるでしょうか？

ＥＸＣＥＬ上でセルの数値はリアルタイムで変化しています。このセルの数値が例えば1から10の間に入ったら音を鳴らしたいのですが、どなたか教えて頂けませんでしょうか。