chibita_papa の回答履歴

教えてください。 中小企業の減価償却費の計上は、任意であって、当期に計上するか、翌期にずらすか、 自由だと聞いております。 その根拠になる条文や、細かい規定を知りたいのですが、参考になるものがあれば 教えてください。

エクセルＶＢＡで VBAproject(book1) Excel objects sheet1 sheet2 sheet3 ThisWorkbook と　こうなるのが　標準だと思うのですが、ThisWorkbook　が　消えました。 困るのが、ThisWorkbook-OPEN　で　初期値などセットするのですが、各シートには　OPEN　は　ありませんし。 ThisWorkbook　を　追加というか、復活というか　何かうまい方法は無いでしょうか。 また、新規から　というのも・・・いささか。　シートを　うまく取り込む方法ってあれば　、それはそれで、ありかなとも　思うのですが。

有限会社を五年前に主人と設立したときに二人あわせて３０万の給与にしようとして税理士さんに相談したところ配分を１５万ずつがよいといわれました。子供が二人いて、税金のことを考えてだと思いますがなぜ１５万ずつがよかったのでしょうか。考えられることは何ですか

現在a、b、cの店舗でそれぞれAccessをDBとして活用しているのですが、それとは別に 3店舗分のデータを一つにまとめた統合用DBとしてSQL Serverを利用したいと考えています。その際、それぞれ各店舗分のデータをSQL Serverへと追加していきたいのですが、どういった処理が最適で効率が良いのか分からず困っています。 希望する処理的には何らかのexeファイルを作成し、そのexeファイルを叩くとAccessからデータを吸い上げ、SQL Serverへとデータを追加するということを行いたいです。 私が考えられる処理としては以下の２点でした。 １、Accessから吸い上げたデータをストアドを使い、データを追加していく。 ２、Accessから吸い上げたデータをCSVに変換し外部ファイルとし、ローダーを使用して 　　データを追加する。 それぞれの店舗データが３万件程あります。 なるべくDBに負担をかけないで以上の様な事を行いたいです。 DBまわりにお詳しい方、ご教授よろしくお願い致します。

電卓で計算してて、電源ボタンを押すと計算をリセットできますが、例えば足し算してる最中にリセットボタン押してそれまでの計算過程が全て消える電卓と、足す数字のみ消える電卓があるんですが、足す数字のみ消えるようにはできないのですか？

Excel2003を使用し、セルの色で並び替えをする際の VBAの組み方かプログラムを教えて下さい。

Excel2003を使用し、セルの色で並び替えをする際の VBAの組み方かプログラムを教えて下さい。

excel2007です。マクロで、データベースへの書き込みをさせています データベースブックを勝手に開けないようにパスワードをかけています。 user端末のブックに Workbooks.Open (d$ + databook), Password:="hogehoge" というマクロをいれておき、長いこと無事に機能していました。 ところが、あるuser端末での操作中、突然、パスワードを聞いてくるようになりました。 つまり、マクロでの自動パスワード入力を拒絶し始めたのです。 手作業でパスワードを入力したらすんなり入れましたが、それでは運営上こまります。 原因は、別のブックを開いたためにそこでexcelの基本設定がかわったのではないかと思われます。どこの設定を戻せば元通り、マクロに仕込んだパスワードが機能するのでしょうか。 あるいは新たなセキュリティ設定がoffice　update　で仕込まれてしまったのでしょうか。 教えてください。

excel2007です。マクロで、データベースへの書き込みをさせています データベースブックを勝手に開けないようにパスワードをかけています。 user端末のブックに Workbooks.Open (d$ + databook), Password:="hogehoge" というマクロをいれておき、長いこと無事に機能していました。 ところが、あるuser端末での操作中、突然、パスワードを聞いてくるようになりました。 つまり、マクロでの自動パスワード入力を拒絶し始めたのです。 手作業でパスワードを入力したらすんなり入れましたが、それでは運営上こまります。 原因は、別のブックを開いたためにそこでexcelの基本設定がかわったのではないかと思われます。どこの設定を戻せば元通り、マクロに仕込んだパスワードが機能するのでしょうか。 あるいは新たなセキュリティ設定がoffice　update　で仕込まれてしまったのでしょうか。 教えてください。

VB.net初心者ですよろしくお願いします テキストボックス入力制限で全角文字のみを以下の方法で実現させました (1)テキストボックス選択時のImeMode初期値を全角ひらがなに設定 (2)ボタン押下時のイベントで入力された文字のサイズを確認し、半角が混ざっていたらエラー これで基本的には問題ないのですが、後学のために入力文字自体を全角のみに制限できないかを調べています いろいろ調査してみて半角のみは可能であることがわかり、実際にコーディングもしてみました しかし全角のみは調査しても情報が見つかりません 全角のみの入力制限が可能かどうか、理由も添えてアドバイスいただけると助かります よろしくお願いします。

VB.netでの質問です。serialportコントロールを使って232Cのデータを受信したらTimer1.Enabeled=Trueを実行するようにしているのですが、タイマーがスタートしません、何か、良い方法はありますでしょうか？

こんばんは、簿記を独学で勉強しているものです 問題集の解答にたどり着けなく困っております 問題集の問題画像を添付しますので、解けるかたがいらしたら、ご教授願いたいと思います 申し訳ありませんがよろしくお願いします

VB6で作ったプログラムをWindows7において、タスクスケジューラで起動させたが、実行しない。 フォ－ムは1個だけで、その中のACTIVATEから、同フォーム内のルーチンを呼び出して目的の動作をさせるようになっています。手動で起動させると、目的の動作をして終了するが、タスクスケジューラではフォームを表示した状態で止まっている。そのフォームをクリックすると目的の動作を行う。なお、フォームはその時実行されている別のVB6のフォームの前面[最前面）に表示されている。目的は1日1回自動的に特定ファイルの状態を調べたいだけです。 よろしくお願いします。

VB6で作ったプログラムをWindows7において、タスクスケジューラで起動させたが、実行しない。 フォ－ムは1個だけで、その中のACTIVATEから、同フォーム内のルーチンを呼び出して目的の動作をさせるようになっています。手動で起動させると、目的の動作をして終了するが、タスクスケジューラではフォームを表示した状態で止まっている。そのフォームをクリックすると目的の動作を行う。なお、フォームはその時実行されている別のVB6のフォームの前面[最前面）に表示されている。目的は1日1回自動的に特定ファイルの状態を調べたいだけです。 よろしくお願いします。

VisualBasicでPingを送信し、結果をMessageBoxに表示させたいのですが 送り先のアドレスを表示しようとした所 「型'System.Net.IP.Adress'の値をString型に変換できません」とエラー表示されます。 ちなみにコードは XXX = YYY.Send("zz.zz.zz.zzz") … MessageBox.Show(YYY.Address) です。 Ping結果をMessageBox表示はできないのでしょうか?教えてくださると非常に助かります。

こんにちは。VBA初心者、の段階から脱出を試みているものです。 ここやその他サイトを調べて、EXCELファイルを閉じたまま外部参照するには、Application.ExecuteExcel4Macroを使えばいいことがわかったのですが、参照先の最終行などの情報を取得するにはどうしたらいでしょうか。 私が調べた限りでは、以下のような単純に値を取得する方法しか説明されておらず、VBEのヘルプにも詳しい説明がありませんでした。 Cells(1, 1) = Application.ExecuteExcel4Macro _ ("'C:\My Documents\[Book2.xls]Sheet1'!R1C1") 参照先から値を取得する際に、必要な範囲だけ見るようにしてできるだけ速く処理できるようにしたいと思っています。 （したがって、 65535行目までループするとか、OPENメソッドで一旦ファイルを開くような手法は避けたいと思っています） なにかいい方法がありましたらご教示いただけないでしょうか。 よろしくお願いします。

お世話になります。 ＶＢ．ＮＥＴでdatasetの値をＸＭＬファイルに書いていますが、ＸＭＬ宣言部が書かれません。 同じような事象を検索してみましたが、該当するものはありませんでした。 またＭＳＤＮにも特に注意事項は記載されていません。 コードは以下のとおりとなります。 Dim filename As String = "C:\Documents and Settings\inui\My Documents\testXml\xmlWrite\XF_RACE.61.20110204.1.xml" ' Create an XmlTextWriter with the fileStream. Dim = New IO.StreamWriter(filename, False, _ System.Text.Encoding.GetEncoding("shift_jis")) ' Write to the file with the WriteXml method. _Dataset.WriteXml(xmlWriter) xmlWriter.Close() ご教授お願いしたします。

こんにちは。VBA初心者、の段階から脱出を試みているものです。 ここやその他サイトを調べて、EXCELファイルを閉じたまま外部参照するには、Application.ExecuteExcel4Macroを使えばいいことがわかったのですが、参照先の最終行などの情報を取得するにはどうしたらいでしょうか。 私が調べた限りでは、以下のような単純に値を取得する方法しか説明されておらず、VBEのヘルプにも詳しい説明がありませんでした。 Cells(1, 1) = Application.ExecuteExcel4Macro _ ("'C:\My Documents\[Book2.xls]Sheet1'!R1C1") 参照先から値を取得する際に、必要な範囲だけ見るようにしてできるだけ速く処理できるようにしたいと思っています。 （したがって、 65535行目までループするとか、OPENメソッドで一旦ファイルを開くような手法は避けたいと思っています） なにかいい方法がありましたらご教示いただけないでしょうか。 よろしくお願いします。

教えてください。 if(A1>"",・・・・・・ >""　ってどういう意味ですか? お願いします。

SQL文がDouble型として認識される 質問させて頂きます。 ユーザーのポイントを引き算し、SQLにアップデートするプログラムを組んでいます。 実行すると String "UPDATE 「テーブル名」 SET 「要素名（Integer）」 " から型 'Double' への変換は無効です。 というエラーが出るのですが、SQL文の部分を何故Doubleに変換するのでしょうか？ デバッグにて変数を確認し、String等をいれてみても同じエラーが出る上 SQL文は他の部分で正常に動いているものをコピーしても同じエラーが出ます。 INSERT INTO テーブル名(要素) VALUES(xxx)"であれば 「String "INSERT INTO テーブル名(要素) VALUES」 " から型 'Double' への変換は無効です。」 となります。 SQL文の記述が間違っているとは思えず、VBの記述の問題としてここで質問させて頂きました。 コードは以下の通りで、環境はVB2010 + SQL Server2008です。 回答して頂くために不足している情報がありましたらすぐに追記致します。 至らない文章ではありますが、どうかよろしくお願い致します。 Dim point As Integer point = point（Integer型） - price（Integer型） Dim strSQL As String = "UPDATE 「テーブル名」 SET 「要素(Int型)」 = '" + point + "' WHERE UserID = '" + userid（String型） + "'" cn.ConnectionString = My.Settings.ServerURL Dim cmd4 As New SqlCommand(strSQL, cn) cn.Open() cmd4.ExecuteNonQuery() cn.Close()