chibita_papa の回答履歴

お世話になります。 ○×問題をエクセルで作り、別シートでＩＦ関数で採点するように設定しました。（Hiddenで隠していますので受験者にはすぐには見られません） そして、フォームボタンで「送信」ボタンを作成し、そのボタンを押すと、私のメールアドレスに添付ファイルで送られる、というマクロを組んでいます。 これに、追加したい項目があります。 (1)フォームボタンを押すと、80点以上なら「合」、それ未満なら「否」というのを10秒ほど表示させ、受験者に合否をその場で知らせたい。（合否は、イラスト（gif等）を挿入させるようなので考えています） (2)合否の表示がされ、メールが送信されたら、内容を保存しないで、ファイルを閉じたい。 以上の2点のようなことは可能でしょうか？ 何分初心者のもので、、、ご教示いただけると助かります！

VisualBasic2005で作業を行っているモノです。 ネット上などでいろいろ調べてみたのですが、 検索方法が下手なのか調べきれなかったのでアドバイスをお願いいたします。 質問内容は... テキストボックス(ひらがな入力に限定しています)に入力した文字を数字(あらかじめ数字を割り当ててあります)に変換し、ラベルに表示する方法です。 数字の割り当て方は、以前に質問して理解できたのですが… 最初の文字しか反映されないので質問させていただきます。 例:Text1に「ここあ」と入力されたらLabel1に「551」と表示したいのですが、私の方法では「5」しか表示されません。 プログラムを貼り付けておきますので、何が足りないのか教えていただきたいと思います。 Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYou.TextChanged Select Case Text1.Text Case "あ", "か", "さ", "た", "な" 　　　　　　 Label1.Text = 1 Case "い", "き", "し", "ち", "に" 　　　　　　Label1.Text = 2 Case "う", "く", "す", "つ", "ぬ 　　　　　　Label1.Text = 3 Case "え", "け", "せ", "て", "ね" 　　　　　　Label1.Text = 4 Case "お", "こ", "そ", "と", "の" 　　　　　　Label1.Text = 5 End Select End Sub 質問内容がわかりにくい上に乱文・駄文で申し訳ありませんが... わかる方がいましたらアドバイスをお願い致します。 宜しくお願い致します。

ExcelのVBAでODBCを使用してiSeriesのデータを取り込み、 シートに貼り付ける作業を行いました。 VB関連は素人ですが、↓を参考にして何とか作成しました。 http://firebird.skr.jp/wiki/Excel%20VBA%A5%B5%A5%F3%A5%D7%A5%EB(ADO%A1%A2ODBC) ところが、iSeriesの中では全角の数字として入っているデータが、 Excelで受信すると表示形式が日付に勝手に変更されてしまいます。 後で書式設定を標準に変えると半角のデータとなってしまいます。 何か解決法はありませんでしょうか？ Windows XP Professional SP3 Excel 2003 iSeries v5.4 / v5.2 iSeries Access for Windows v5.2 SI23978

VB6.0、Oracle9iを使用して、バイナリデータを登録・参照するプログラムを作ろうとしています。 やりたいことは以下の通りです。 １．OracleのBLOB形のフィールドにバイナリデータ(bmp,xlsなど)を登録する。 ２．１で登録したバイナリデータを取得し、テンポラリフォルダに保存する。 どなたがご存知の方がいらっしゃいましたら教えて下さい。 宜しく御願いします

検索をかけると同じような質問があったのですが 過去の質問 WindowsXP Excel2000を使っています。 自動保存の初期設定が10分となっており、Excelを開くたびに変更しています。 初期設定値を変更固定できないでしょうか？ 回答 レジストリの操作で可能になります。(Excelは閉じた状態で作業します) １）レジストリ・エディターを開く。 　　＊「スタート」→「ファイル名を指定して実行」を選び「regedit」と入力すれば起動します。 ２）エクスプローラー風の画面が現れたら「＋」マークをクリックして下記まで進む。 　　⇒ 『HKEY_CURRENT_USER\Software\Microsoft\Office\9.0Excel\AutoSave』 ３）画面右側の「Frequency」をダブルクリックし、「値のデータ」に希望する 　　保存間隔を入力する。　＊ 単位は「分」。現在は「10」のはず。 ４）レジストリ・エディターを閉じる。 ５）Excelを起動して保存間隔を確認する。 ＊ レジストリは正しく扱わないと Windows が起動しなくなるなどの危険を伴い 　 ますのでご注意下さい。操作は自己責任でお願いします。 　 Windows XP & Excel2000で検証済み。 以上、お試し下さい。(^_^)/~~ 今回の質問 私もエクセル2000を使っているのですがレジストリで 『HKEY_CURRENT_USER\Software\Microsoft\Office\9.0Excel まではいけるのですが、 \AutoSave』 がありません。 Add-in Manager Options Recent Files Spell Checker しかないのですが、どこを変更すればよいか ご存知の方いらっしゃいませんでしょうか？

08/2月度決算で製品(無償)修理費を計上したのですが、 その後の交渉にて、その分の費用を取引先から入金してもらえる ことになり、振込みについては、08/6月に入金予定であります。 そこで質問ですが、今回の場合、年度が変わっている関係上、 入金後の仕訳はどのようにすればよろしいでしょうか？ お手数ですが、下記？？？？？部分についてご教示いただきたく。 　　　現預金　//　？？？？？ 　　　　　　　　　　　仮受消費税

増資の手続きは、自分ですると難しいですか？できれば、経費削減で司法書士に頼まずにやりたいのですが、誰か自分でした方いらっしゃいますか？

個人事業主です。 労働保険のうち、労災（一般）のみ加入しています。 従業員は専従者以外は、パートのおばさんのみです。 労働保険の手続きを事務組合に頼んでいますが、年間の保険料が25,000円にも満たないのに、労働保健指導協会の年会費が50,000円もかかります。なんか、もったいない気がするのですが、社会保険労務士に頼むか、自分で労働基準局に行って手続きするかしたいのですが、可能でしょうか？手続きは結構大変ですか？50,000円もだして組合に入っているメリットはありますか？（親がそうしてきたのですが・・・）

課題でVBからデータベースの操作についてのプログラムを作成しているのですが、どうしてもエラーが出るのでお願いします。 フォームロード時に下の処理をしているのですが、 Dim sql As String Dim cm As OleDb.OleDbCommand Dim rd As OleDb.OleDbDataReader sql = "select max(番号) as 数 from アドレス帳" Try cm = New OleDb.OleDbCommand(sql, cn) rd = cm.ExecuteReader Catch ex As Exception MessageBox.Show(ex.Message, "Access Error", MessageBoxButtons.OK, MessageBoxIcon.Error) rd.Close() Exit Sub End Try If rd.Read Then frmMenu.num = rd.Item("数") frmMenu.num += 1 End If frmMenu.num += 1 txtnum.Text = frmMenu.nu この部分なんですが、 If rd.Read Then frmMenu.num = rd.Item("数") frmMenu.num += 1 End If frmMenu.num += 1 txtnum.Text = frmMenu.nu ・frmMenu.num はInteger型の変数です。初期値に0が入っています。 この部分では、データが読めた場合はデータベースの方から 数を引っ張ってきて、＋１をして、読めない（データがない） 場合には+1だけをしたいのですが、データがある時は正常に 動くのですが、データがない時に動かそうとすると、 型 'DBNull' から型 'Integer' への変換は無効です のエラーがでて困っています。 これは、読めたか読めなかったか判定出来ていないということなのでしょうか？

EXCEL2000ので動作していたVBAのプログラムをEXCEL2007で動かしたら、CHRの命令でコンパイルエラー、プロジェクトまたはライブラリーが見つかりませんとメッセージが出てしまいます。 （Excel2007の設定は初期値のままです） CHRの命令行をコメントにして先へ進ませると今度は、Leftの命令で同じエラーが発生します。 又、VBAProjectのコンパイルを実行するとFormatの命令で同じエラーがでます。 何かアドインのモジュール設定が足りないと思っていますが、何が足らないのかわかりません。 ご存知の方は解決方法を教えて下さい。 宜しくお願い致します。

ＶＢＡを利用して、 例えば挨拶状などを作る場合、 文面は同じで、違う宛先名の入った挨拶状を多数作る場合、 シートＡ（挨拶状の文面）にシートB（名前のリスト）から、 選択して名前を表示して、シートＡを自動に印刷までするにはどうしたらいいのですか？ シートＡ（挨拶状の文面）　　　　シートB（名前のリスト） 株式会社○○工業所　御中　　　　××商事　株式会社 　　　　　↑　　　　　　　　　　株式会社○○工業所 　ここに左のリストから　　　　　○○製鋼所　株式会社 　選択したものを表示させたい　　　　　　　｜　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ 　このようなイメージです。　　　　　　　　　　 よろしくお願いします。 　　　　　　　　　　　　　　　　　　

エクセルVBAでコマンドバーとツールバーを一括で非表示にする方法を探しています。ご存じの方、宜しくお願いします。

Public Sub PrtPicture(aPos As String, aPic As String) EX.worksheets("Sheet1").range(aPos).Select EX.ActiveSheet.Pictures.Insert(aPic).Select End Sub このようなサブルーチンを作成しました。 エクセルのシートの任意のセルに、ファイルで指定した図を貼り付けます。 aPosは、"B5" aPicは、"C:\図\ABC.jpg"のようにしています。 エクセル2003までは、きちんと指定したセルの位置に張り付きますが エクセル2007では、指定したセルの位置には張り付かないです。 VBAに大きな、違いができたのでしょうか？ 宜しくお願いします。

Visual Basic 2005 を使い、勉強をし始めた初心者です。フォーム（デザイン）を印刷したい、つまりプログラミングしたので、「結果」のでたフォームを印刷したいのですが、どのようにしたらよいでしょうか。 全くの素人、初心者ですので試行錯誤しましたが、全くだめです。 よろしくお願いいたします。

私は現在働いている会社を約3年前に退職していたのですが、今春に再度復帰したところです。(経理経験者) いなかった期間は、会計事務所に月1度見ていただいて出納帳作成されているのですが、決算が近く疑問に思う仕分けについて教えて下さい。 昨年末、社員・業者さん参加で、旅行会社を通して初めて1泊かけての忘年会だったそうです。(業者さんは参加費制) 旅行会社の請求に対して、社員・業者さんの総額を会社が一括支払をしておき、後日業者さんから参加費を回収という流れです。 【仕訳内容】 社員217,730　　業者さん511,000　　総額　728,730　で 普通預金　／旅費交通費　728,730 旅費交通費／未収入金　　511,000 未収入金　／現金　　　　511,000　　となっているようです。 私が仕訳するとしたら 普通預金　／福利厚生費　217,730 　 　　　 ／立替金　　　511,000 立替金　　／現金　　　　511,000　　ではないかと思うのですが… 前者の仕訳は間違っていると思うのですが、訂正するにしても後者の仕訳で良いか確信が持てません。 良きアドバイスをお願い致します。

よろしくお願いします。 現在グループウェアのようなシステムを作っているのですが SQL Serverにファイルを登録したり、そのデータからファイルを 作成したいのですが、方法が見つからず困っています。 画像の登録と取得は出来るようになったのですが、エクセルや ワード、ＰＤＦなどのデータをSQL Serverに登録して そのデータから、エクセルなどのデータを作成したいと考えて いるのですが・・・ 画像が出来るならこちらも、程度の知識なので、出来るか どうかも分かりません。 出来ると非常にありがたいので、ご存知の方がおられましたら 是非ご教授お願い致します。 環境 　Windows XP VB6 SP6 SQL Server 8 もし、不可能であれば、何か代替アイデアがあれば、そちらも 同時にお願いできれば幸いです。

VBAについて教えて下さい！ 今、UserFormに「TextBox1」,「TextBox2」,「TextBox3」,「CommandButton1」があります。 「TextBox1」には自動的に年"yy"（上書き修正も出来るようにする） 「TextBox2」には自動的に月"mm"（上書き修正も出来るようにする） 「TextBox3」には自動的に日"dd"（上書き修正も出来るようにする） が入るようにして 「CommandButton1」をクリックすることによりExcelの「A1」に"yy/mm/dd" と言う形で自動的に入力することは出来ないでしょうか？ また、その時にありえない日にちが入力された時にエラーが出て、「TextBox3」にカーソルが戻るようなことは出来ないでしょうか？

Excelのプログラムで、テキストボックスに例えば、「10.00」や「10.50」など小数点第二位まで0であっても表示させる方法はありませんか？ あまり複雑になるようなら特に必要なプログラムではないのですが。 回答よろしくお願いします。

OA機器はリースすることが多いと思うのですが、 リースして経費にするとどういう利点があるのでしょうか？

会社で保険料控除申請書のチェックをしています。 生命保険料控除証明書の標題に「一般用」と記入されているのに 保険種類に「個人年金」とかかれている場合 申告書には個人年金の欄に書くべきなのでしょうか？ 保険種類「年金保険」というものもありますが、これも標題は「一般用」と記入されています。 どちらに記入するかで控除額が違ってくるので教えていただきたいのですが・・・。