ushi2015 の回答履歴

マクロが得意でなく下記の処理が可能かご教授いただければと お願いします。 ・シートＡに自社の発注済みデータ ・シートＢに発注先から送られてきた受注データがあります。 シートＡの発注番号コードとシートＢの受注番号コードが一致するので これを基にそれぞれのシートにある数量、単価、金額を照合し 一致しないレコードのみシートＣにコピーさせる。 という流れなのですが、 ・それぞれのシートのコード、数量、単価、金額は別々の列にあります。 現在関数とオートフィルターで処理しているのですが効率が悪いため 改善するよう指示されて困っております。 よろしくお願いします。

エクセル２００３を開いたときに作業ウインドウが開きません。 どのようにしたらひらくでしょうか？

Excel2013でセルA5～A100に数値がありC3に数値がありセルB5にA5数値×C3の数値～A100数値×C3の数値を入力したいのですが。どなたかVBAコードがわかる方お願いします。

クエリをテキストエクスポート設定をしたのですが、数字フィールド（整数）のエクスポート結果が、小数点第2位まで付いてしまいます。クエリのプロパティで書式に0を設定したり、テーブルに変換して実行しても結果は同じです。 OSは、Windows7、Accessは2013です。 例 1,○○ 2,○○　　　　とクエリではなっていますが、csvにエクスポートすると、 1.00,○○ 2.00,○○　　　というように、小数点以下が不要です。 テキストエクスポート定義には、小数点を設定する項目がなく、他の方法でできないものか悩んでいます。 小数点以下を書き出さない方法をご存知でしたら教えてください。

A列～E列のようなCSVのデータがあり、行に回答者氏名、列に質問番号（Q1～Q3）としてH列～K列のようにそれぞれの質問の回答が表示されるような表を作りたいと思っています。 回答者は５００名くらいあるためコピペでは時間がかかりすぎるので関数で出来ないかと試してみているのですが上手くいきません。 どのような関数を使用すれば良いでしょうか？

M16に項目(Z15:AA18)で、課税、非課税1、消費税を選択し、商品計算していきます。 P33　合計、R33　消費税、T33　総合計　として計算していきたいのですが、 関数がうまくいきません。 項目1、課税(消費税計算する) 項目2、非課税(消費税計算しない) 項目3、消費税　(消費税をR33に加えたい)場合、 どのような関数になりますか？ よろしくお願いします。

年、月、日が変数で与えられる時、この変数を日付のシリアル値に変換するプログラムを教えて下さい。

ファイルの関連付けが正しくないためコントロールパネルから求めるファイルを探し出してこれを削除しなさい、とあるのですが「プログラム」→「規定のプログラム」→「ファイルの種類またはプロトコルのプログラムへの関連付け」、を選択して目的のファイルを探し出したのですが、画面右上にある「プログラムの変更」をためしても、Deleteをしても目的のファイルが削除出来ません、このファイルタイプを削除するにはどのようにしたらいいのでしょうか？よろしくお願いいたします。　 「まいとーくFAX9」　ウィンドウズ７　３２ビットでスキャナーから取り込んだ画像の印刷が出来ないのです。

エクセル2010を使用しています。 VBA（マクロ）で以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 現在、マクロ実行ファイル（エクセル）と同じフォルダ内にあるファイルの ファイル名を全て（マクロ実行ファイルに）記載する というマクロを使っています。 ※以下です。 Sub ファイル名取得() FolderPath = Cells(10, 7).Value 'パスは、G10セルから読み込む buf = Dir(FolderPath & "\*.*") cnt = 9 '実施行-1行目を指定 Do While buf <> "" If (buf Like "*.xls?") And buf <> ThisWorkbook.Name Then cnt = cnt + 1 Cells(cnt, 6) = buf 'F10からファイル名を記載 End If buf = Dir() Loop End Sub 現在、このマクロだと都度「上書き」になっているのですが 使用上の都合で 上記を実行して記載されたファイル名に 「追加」することもできると助かるのに・・と考えています。 ※以下「2」を質問させていただています！ →1.マクロファイルと同じパスにあるファイルのファイル名を取得（記載）：上記マクロで実行中 →2.1を実行後、同パスにファイルを追加し、ファイル名取得（記載）も1の後に追記 上記マクロは上記として、別途「追加」機能としてのマクロ（VBA）でも構いませんし、 上記を変更して「追加」にも対応できるマクロ（VBA）でも構いません！ 具体的にイメージできていないまま質問してしまっているかもしれないので、 いくつかケース（構造）があるようでしたら、 ご面倒でなければ どのような動きがスムーズなのか？ エラーが出にくいのか？等 併せて ご教示いただけますと、幸いです。 尚、説明がわかりにく等あれば 当然、補足させていただきますので、 ご指摘ください！ よろしくお願い致します。

とあるホームセンターの駐車場で、ナンバープレートの形状から150cc以上と思われる、フットステップが平らなスタイルのスクーターが置いてありました。しかし、今まで見たことのない美しい外見のバイクで、どうも日本のメーカーのものではないような感じでした（同じく、フットステップが平らな台湾メーカーのものでもありませんでした）。そこで、タンクに表示してあるアルファベット３文字を確認したのですが、ド忘れしてしまいました。MAX? のような感じの３文字でした。思い当たる方、教えてください。

VB.netでOleDbConnectionを使ってCSVを読み込むと便利ですが、属性判定を勝手にされたくありません。 どうすればコントロールできますか？ 個別に属性を決めるか、もしくは全部文字列として受け取りたいです。 何もしなければ、項目の属性が自動で決まりますが、その属性判断が甘く、属性に合わない値が消えます。 例えば、 日付項目っぽい値が入っている項目にたまに文字列がるとすると、 その項目が日付項目になって、日付項目に合わないデータは空白になってしまいます。 CSVの読み込みは一旦すべて文字列にして受け取り、その後の事はアプリでコントロールしたいです。 どうすればできますか？ Dim OleDbConnection1 As New OleDb.OleDbConnection Dim OleDbCommand1 As New OleDb.OleDbCommand Dim OleDbDataAdapter1 As New OleDb.OleDbDataAdapter Dim FileInfo1 As New FileInfo(CSVファイルの名前をフルパスで) OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & FileInfo1.DirectoryName & "\;" _ & "Extended Properties=" & ControlChars.Quote & "Text;HDR=No;FMT=Delimited" & ControlChars.Quote OleDbConnection1.Open() OleDbCommand1.CommandText = "SELECT * FROM [" & FileInfo1.Name & "]" OleDbCommand1.Connection = OleDbConnection1 OleDbDataAdapter1.SelectCommand = OleDbCommand1 OleDbDataAdapter1.Fill(DataTable1) OleDbDataAdapter1.Dispose() OleDbCommand1.Dispose() OleDbConnection1.Dispose()

お世話になっております。Accessを始めて4週間の初心者です。 今、同一フォーム（フォーム名：社員登録）内に２つのテキストボックスを配置し、 片方に日付を手入力したら、もう一方に年度末日付を自動表示させたいと思っ ていますが、方法が分かりません。 検索してみると、本日の日付から年度末を自動計算させる・・は出てきますが 今回のような事例にたどり着けていません。 例１　一方　2016/12/1　ならば　片方　2017/3/31 例2　一方　2019/4/1　ならば　片方　2020/3/31 何卒、お力添え頂きたく、お願い致します。

エクセルファイルをvbaで開いて全画面表示したいのですが Sub Sample1() Dim App As Excel.Application Dim xlBook As Workbook Dim MyFileName As String MyFileName = "D:\test.xls" Set App = CreateObject("Excel.Application") Set xlBook = App.Workbooks.Open(MyFileName, ReadOnly:=True) App.Visible = True AppActivate App 'エラー発生 End Sub このコードだと AppActivate Appでエラーが発生します。 たまにシステムの裏側で開いてしまうので 常に前面に持ってこれるようにしたいのですが AppActivate Appではなぜだめなのでしょうか？

エクセルファイルをvbaで開いて全画面表示したいのですが Sub Sample1() Dim App As Excel.Application Dim xlBook As Workbook Dim MyFileName As String MyFileName = "D:\test.xls" Set App = CreateObject("Excel.Application") Set xlBook = App.Workbooks.Open(MyFileName, ReadOnly:=True) App.Visible = True AppActivate App 'エラー発生 End Sub このコードだと AppActivate Appでエラーが発生します。 たまにシステムの裏側で開いてしまうので 常に前面に持ってこれるようにしたいのですが AppActivate Appではなぜだめなのでしょうか？

VB.netでOleDbConnectionを使ってCSVを読み込むと便利ですが、属性判定を勝手にされたくありません。 どうすればコントロールできますか？ 個別に属性を決めるか、もしくは全部文字列として受け取りたいです。 何もしなければ、項目の属性が自動で決まりますが、その属性判断が甘く、属性に合わない値が消えます。 例えば、 日付項目っぽい値が入っている項目にたまに文字列がるとすると、 その項目が日付項目になって、日付項目に合わないデータは空白になってしまいます。 CSVの読み込みは一旦すべて文字列にして受け取り、その後の事はアプリでコントロールしたいです。 どうすればできますか？ Dim OleDbConnection1 As New OleDb.OleDbConnection Dim OleDbCommand1 As New OleDb.OleDbCommand Dim OleDbDataAdapter1 As New OleDb.OleDbDataAdapter Dim FileInfo1 As New FileInfo(CSVファイルの名前をフルパスで) OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & FileInfo1.DirectoryName & "\;" _ & "Extended Properties=" & ControlChars.Quote & "Text;HDR=No;FMT=Delimited" & ControlChars.Quote OleDbConnection1.Open() OleDbCommand1.CommandText = "SELECT * FROM [" & FileInfo1.Name & "]" OleDbCommand1.Connection = OleDbConnection1 OleDbDataAdapter1.SelectCommand = OleDbCommand1 OleDbDataAdapter1.Fill(DataTable1) OleDbDataAdapter1.Dispose() OleDbCommand1.Dispose() OleDbConnection1.Dispose()

どちらも滑らないような気がするのですが、価格が違うのでしょうか？ 30年近くチェーンのお世話になったことが無い生活（地域）なのですが、最近の豪雪？やゲリラ豪雨に備えて、タイヤを夏冬兼用でオフロードタイヤという選択肢はないのでしょうか？

VB.netでOleDbConnectionを使ってCSVを読み込むと便利ですが、属性判定を勝手にされたくありません。 どうすればコントロールできますか？ 個別に属性を決めるか、もしくは全部文字列として受け取りたいです。 何もしなければ、項目の属性が自動で決まりますが、その属性判断が甘く、属性に合わない値が消えます。 例えば、 日付項目っぽい値が入っている項目にたまに文字列がるとすると、 その項目が日付項目になって、日付項目に合わないデータは空白になってしまいます。 CSVの読み込みは一旦すべて文字列にして受け取り、その後の事はアプリでコントロールしたいです。 どうすればできますか？ Dim OleDbConnection1 As New OleDb.OleDbConnection Dim OleDbCommand1 As New OleDb.OleDbCommand Dim OleDbDataAdapter1 As New OleDb.OleDbDataAdapter Dim FileInfo1 As New FileInfo(CSVファイルの名前をフルパスで) OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & FileInfo1.DirectoryName & "\;" _ & "Extended Properties=" & ControlChars.Quote & "Text;HDR=No;FMT=Delimited" & ControlChars.Quote OleDbConnection1.Open() OleDbCommand1.CommandText = "SELECT * FROM [" & FileInfo1.Name & "]" OleDbCommand1.Connection = OleDbConnection1 OleDbDataAdapter1.SelectCommand = OleDbCommand1 OleDbDataAdapter1.Fill(DataTable1) OleDbDataAdapter1.Dispose() OleDbCommand1.Dispose() OleDbConnection1.Dispose()

エクセル2010を使用しています。 VBAで以下の操作を実行したいと考えていますが、 初心者につき、ご教示いただけないでしょうか。 60万行くらいあるエクセルの表（CC列まで）で、 空白セルを左詰めしたいのですが 範囲指定（空白へのジャンプ）機能をするだけで固まってしまい 何度も操作が止まってしまい困っています。 VBAでスムーズに操作することができればと思うのですが・・・ よろしくお願いします！

お尋ねします。 エクセルで月曜から土曜日まで各日に担当の名前を入れて 一か月の表にランダムに1→土曜日・　2→水曜日・　3→　火曜日のように 曜日を入力すると、担当者の名前が表示されるようにするにはどうしたら いいでしょうか？ 宜しくお願い致します。

１月以上バイク（250cc）に乗らないので、バッテリーのコードを外そうかと思っております。そこでお訊ねしたいのですが、やはり、きっちりプラスとマイナスの両方とも外さないとダメでしょうか？プラスだけ、あるいはマイナスだけ外すというのはダメでしょうか？