ichhabehunger の回答履歴

全101件中21~40件表示
  • VBAでデータの仕訳し新規ブックへ貼付け・登録

    VBAで指定(A列の値と同一)ファイルを開き、データ内C列の値を認識し、新規ブックへ1行全ての データをコピー貼付け処理後、各々仕訳されたブックB列値に-A・-B~を付加し、ファイル登録を行い たいのですが、VBA初心者でどうしてよいか教えてください。    A列   B列   C列    D列 1 J00001 11111 ABCDE BHBHB 2 J00001 22222 SDFAG NHNHN 3 J00001 22222 AZXCV NHNHN 4 J00001 11111 CVBNM LKLKL 5 J00001 33333 VBNM< TYTRE ※ 指定ファイル内行数は、可変です。 ※ 指定ファイル内A列値は同一 ↓ <book1>    A列   B列   C列    D列 1 J00001 11111 ABCDE BHBHB 2 J00001 11111 CVBNM LKLKL <book2>    A列   B列   C列    D列 1 J00001 22222 SDFAG NHNHN 2 J00001 22222 AZXCV NHNHN <book3>    A列   B列   C列    D列 1 J00001 33333 VBNM< TYTRE               ↓ book1⇒J00001-A.xlsで登録 book2⇒J00001-B.xlsで登録 book3⇒J00001-C.xlsで登録

    • noname#201188
    • 回答数1
  • Excel VBAでの行の削除について

    Excel VBAを使用して2行ずつ行の削除をし、1行残して(3行目を残す)また2行ずつ行の削除、1行残しす(6行目を残す)をループして行う方法が知りたいです。 イメージとしては以下のような感じです。 ━━【A】━━━━ 【1】あいうえお 【2】かきくけこ 【3】さしすせそ 【4】たちつてと 【5】なにぬねの 【6】はひふへほ 【7】まみむめも 【8】やゆよ 【9】らりるれろ ━━━━━━━━━ ↓マクロ実行後↓ ━━【A】━━━━ 【1】さしすせそ 【2】はひふへほ 【3】らりるれろ ━━━━━━━━━ 当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。 よろしくお願いいたします。

  • Excel VBAでの行の削除について

    Excel VBAを使用して2行ずつ行の削除をし、1行残して(3行目を残す)また2行ずつ行の削除、1行残しす(6行目を残す)をループして行う方法が知りたいです。 イメージとしては以下のような感じです。 ━━【A】━━━━ 【1】あいうえお 【2】かきくけこ 【3】さしすせそ 【4】たちつてと 【5】なにぬねの 【6】はひふへほ 【7】まみむめも 【8】やゆよ 【9】らりるれろ ━━━━━━━━━ ↓マクロ実行後↓ ━━【A】━━━━ 【1】さしすせそ 【2】はひふへほ 【3】らりるれろ ━━━━━━━━━ 当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。 よろしくお願いいたします。

  • vb.netに関して質問させていただきます。

    vb.netに関して質問します 環境はvb2010です。 0=2010/09/16 11:44:30 1=2010/09/16 11:45:30 2=2010/09/16 11:46:30 3=2010/09/16 11:47:30 4=2010/09/16 11:48:30 5=2010/09/16 11:49:30 6=2010/09/16 11:50:30 7=2010/09/16 11:51:30 8=2010/09/16 11:52:30 9=2010/09/16 11:53:30 10=2010/09/16 11:54:30 11=2010/09/16 11:55:30 12=2010/09/16 11:56:30 13=2010/09/16 11:57:30 14=2010/09/16 11:58:30 15=2010/09/16 11:59:30 16=2010/09/16 12:00:30 このように、データを取得していくのですが、このデータをグラフ化しようとしています。 日付、時間は常に更新し、分刻みで取得していくのですが、現在は1分ピッチです。今後ピッチの変更を加える予定です。 お聞きしたいのは、分刻みで値を取得していきたいのですが、現在時間を無視してるのです。 上記のデータだと最小値00、最大値59となってるのですが、時間が増えると計算がおかしくなってしまいます。 1時間毎に0分から59分までのデータのみを取得したいのですがどうすればいいでしょうか? データはiniファイルに保存、今後はデータベースに移行する予定です。秒の隣は数値データが入ります。 あまり時間がないのでお願いします。

  • EXCEL(VBA)における次行遷移

    いつもお世話になっています。 EXCELのVBAにて、 EXCELの明細行の各項目のデータにより、 メールを作成・表示して確認後に手作業でメールを送っています。 実際には、マクロを実行する毎に該当する行・項目のデータで、 作成したあとは、次の行の処理待ちとするようにカーソルを遷移させています。 ただ、ある項目でフィルターを掛けて、 該当のデータのみを次々とメールを送りたいのですが、 単純な次行遷移だと、 フィルターの掛かっていないデータ(行)を含めて、 遷移されますので、思いの通りとなりません。 どのようなVBAの修正をすれば可能なのでしょうか? (メール作成の部分の詳細は割愛しています) 教えて下さい。 よろしくお願い致します。 *** Sub DISPLAY() Dim i As Long i = ActiveCell.Row '### Outlookのオブジェクトを作成後、メールを新規作成する : : '### メールを送信前表示 myDATA.DISPLAY '### 次行へ遷移 Cells(i + 1, 1).Select End Sub ***

  • excel vba 作成方法 

    現在大学2年生です。課題の提出をしたいのですが、excel vbaがよく分かりません。心優しい方、回答をお願いします。 コンボボックスで1945年から2011年の一つを選び、チェックボックスで男か女のどちらかを選び、コマンドボタン「結果」をクリックすると、テキストボックス3つ「年齢」「干支」、(チェックボックスで男か女を選択)「平均寿命はあと何年」の値が入るというプロブラムを作りたいです。 コンボボックスはsheetのA2~A68の値から選択するというところまではできました。テキストボックスの年齢はsheetのC2~C68,干支はD2~D68、チェックボックスで男を選んだ場合はE2~F68,女を選んだ場合はG2~G68が、コマンドボタンを押した瞬間に出るというプログラムは可能でしょうか? パソコンが苦手です。分かりやすく教えていただけたら本当に嬉しいです。よろしくお願いします!!

  • エクセルの行を削除したい。

    VBAを使用して以下の処理をしたいと思ってます。 セルの中が小計ならば、小計行を含めて5行削除するっと言う処理を最終行まで繰り返したいんですが、上手く行きません。 よろしくお願いします。

    • noname#143014
    • 回答数6
  • Visual Studioのデザインでの非表示

    VisualStidoでの開発をしているのですが、 多くのパネルを扱うため開発中でのデザインする画面が非常に見づらい状況になっています。 すでに完成したパネルなどをデザインする画面で非表示にして画面をすっきりさせたいのですが、 非表示にする方法ありませんでしょうか。 ちなみにタブでは代用することが出来ない処理です。

  • コンパイルエラーについて

    現在、大学でステッピングモーターの制御についてのプログラミングについて学んでいます。 コンパイルエラーについてお力をお貸しいただけたら幸いです。 環境は windows7 VC++6.0 を使っています。 ///Motorprogram #include "Svcpp.cpp" #define JOG_P 0x32 //定速連続+方向の定義 ///X軸(定速連続+方向) //flag=ppd3test('X','+'); //動作可否の判断 if(!flag){ w_p234.axis ='X'; w_p234.cmd = jog_p; //定速連続+方向 w_p234.spd = 25; //25pps flag = hp234_writ(&w_p234); //動作開始指令 } エラーは以下の通りです。 motor-2011.cpp C:\Users\hikari\Desktop\motor-program\motor-2011.cpp(130) : error C2501: 'flag' : 識別名を宣言するのに、型が指定されていません。 C:\Users\hikari\Desktop\motor-program\motor-2011.cpp(130) : error C2065: 'ppd3test' : 定義されていない識別子です。 C:\Users\hikari\Desktop\motor-program\motor-2011.cpp(131) : error C2143: 構文エラー : ';' が 'if' の前に必要です。 C:\Users\hikari\Desktop\motor-program\motor-2011.cpp(131) : error C2143: 構文エラー : ';' が '{' の前に必要です。 C:\Users\hikari\Desktop\motor-program\motor-2011.cpp(131) : error C2447: グローバルスコープで中カッコ ({) が見つかりましたが、対応する関数ヘッダーがありません。 cl.exe の実行エラー motor-2011.obj - エラー 5、警告 0 includeについてはきちんと読み込んでいるので問題ないかと思います。 パルス出力ボードについては HPC-PPD234 を使用しています。 コマンドはマニュアルに沿ったものを使っています。 よろしくお願いいたします。

    • kon0127
    • 回答数4
  • Oracleサーバとの接続でエラーが出ます

    VS2005(VB2005)を使って、Oracleサーバと接続し、データの取得をしたいと思っています。 下記のようなコードを書いています。 cn.ConnectionString = "host=***;Dsn=***;uid=***;pwd=***" cmd.Connection = cn cn.Open() cmd.CommandText = "SELECT ~~" dreader = cmd.ExecuteReader() Do While dreader.Read() For i = 0 To dreader.FieldCount - 1 no = dreader("フィールド名")   * エラー Next Loop cn.Close() 基本的なコードだと思うのですが、 * の文のところで、下記のようなエラーが出ます。  ERROR [HY010] [Oracle][ODBC Oracle Driver]ファンクション順序エラーが発生しました。 いつもSQLサーバと接続しているのでOracleとは今回が初めてでよく分からず、手探り状態です。 Oracleのバージョンは7.3.4です。 自分のパソコンはXPを使っていて、ここからサーバと接続しようとしています。 エラーの意味がよく分からず、ネットで検索してみたのですが、解決方法が見つかりませんでした。 どなたかおわかりになる方がいらっしゃいましたら教えて頂けませんでしょうか。 ご不明点はお聞きください。 よろしくお願い致します。

    • noname#223023
    • 回答数2
  • エクセルの行を削除したい。

    VBAを使用して以下の処理をしたいと思ってます。 セルの中が小計ならば、小計行を含めて5行削除するっと言う処理を最終行まで繰り返したいんですが、上手く行きません。 よろしくお願いします。

    • noname#143014
    • 回答数6
  • エクセルの行を削除したい。

    VBAを使用して以下の処理をしたいと思ってます。 セルの中が小計ならば、小計行を含めて5行削除するっと言う処理を最終行まで繰り返したいんですが、上手く行きません。 よろしくお願いします。

    • noname#143014
    • 回答数6
  • 分岐処理について

    "AAA"、"BBB"という検索条件でdatagridviewに表示させたいのですが、 『argumentNullexceptionはハンドルされませんでした』というMSGが、haisinA.fill(tbl)の部分で止まってしまいます。これを解決するにはどうすればいいのでしょうか? 色々検索とかしてみたのですが混迷してしまって・・・。 ご助言を頂けたら幸いです。宜しくお願い致します。 ******************************************************************************** Dim tbl As New DataTable() Dim haishinA As New OracleDataAdapter 'リスト条件 Dim SBL As String = Me.cbox2.SelectedIndex.ToString If SBL = "0" Then SBL = "AAA" ElseIf SBL = "1" Then SBL = "BBB" End If '検索 Dim SBF1, SBF2 As String SBF1 = "select * from テーブル名 where sendto = 'AAA'" SBF2 = "select * from テーブル名 where sendto = 'BBB'" Console.WriteLine(SBF1) Console.WriteLine(SBF2) haishinA.Fill(tbl) DataGridView1.DataSource = tbl ******************************************************************************** 

  • 分岐処理について

    "AAA"、"BBB"という検索条件でdatagridviewに表示させたいのですが、 『argumentNullexceptionはハンドルされませんでした』というMSGが、haisinA.fill(tbl)の部分で止まってしまいます。これを解決するにはどうすればいいのでしょうか? 色々検索とかしてみたのですが混迷してしまって・・・。 ご助言を頂けたら幸いです。宜しくお願い致します。 ******************************************************************************** Dim tbl As New DataTable() Dim haishinA As New OracleDataAdapter 'リスト条件 Dim SBL As String = Me.cbox2.SelectedIndex.ToString If SBL = "0" Then SBL = "AAA" ElseIf SBL = "1" Then SBL = "BBB" End If '検索 Dim SBF1, SBF2 As String SBF1 = "select * from テーブル名 where sendto = 'AAA'" SBF2 = "select * from テーブル名 where sendto = 'BBB'" Console.WriteLine(SBF1) Console.WriteLine(SBF2) haishinA.Fill(tbl) DataGridView1.DataSource = tbl ******************************************************************************** 

  • 分岐処理について

    "AAA"、"BBB"という検索条件でdatagridviewに表示させたいのですが、 『argumentNullexceptionはハンドルされませんでした』というMSGが、haisinA.fill(tbl)の部分で止まってしまいます。これを解決するにはどうすればいいのでしょうか? 色々検索とかしてみたのですが混迷してしまって・・・。 ご助言を頂けたら幸いです。宜しくお願い致します。 ******************************************************************************** Dim tbl As New DataTable() Dim haishinA As New OracleDataAdapter 'リスト条件 Dim SBL As String = Me.cbox2.SelectedIndex.ToString If SBL = "0" Then SBL = "AAA" ElseIf SBL = "1" Then SBL = "BBB" End If '検索 Dim SBF1, SBF2 As String SBF1 = "select * from テーブル名 where sendto = 'AAA'" SBF2 = "select * from テーブル名 where sendto = 'BBB'" Console.WriteLine(SBF1) Console.WriteLine(SBF2) haishinA.Fill(tbl) DataGridView1.DataSource = tbl ******************************************************************************** 

  • マクロの記述について教えてください。

    マクロの記述で以下のことを行いたいと思っているのですが、わかる方ご教示お願いいたします。 ある値より下の値は別シートに移動したい。 例:値が「300」であれば、それ以下の値「299以下~」を別シートに移す すいませんがよろしくお願いいたします。

  • datagridviewに表示させたい

    はじめまして。最近VBをやりはじめ、行き詰まったのでお知恵を貸して下さい。 環境:VB2008,oracle11g dim view as string view = " select * from テーブル名" me.datagridview1.visible = true view と me行の間に、datagridview1に表示させるように定義したいのですが、 どうすれば表示される様になりますでしょうか?

  • エクセルの行を削除したい。

    VBAを使用して以下の処理をしたいと思ってます。 セルの中が小計ならば、小計行を含めて5行削除するっと言う処理を最終行まで繰り返したいんですが、上手く行きません。 よろしくお願いします。

    • noname#143014
    • 回答数6
  • エクセルVBAについてです。

    マクロが何も組み込まれていないワークブックAの Thisworkbookに「Workbook_SheetActivate」 イベントを追加する方法を考えています。 マクロが組み込まれているワークブックBのモジュールを ワークブックAにコピーする方法は下記のサイトで見つける ことができました。 http://officetanaka.net/excel/vba/vbe/07.htm しかし、モジュールの追加はできても、Thisworkbookに 追加する方法はわかりませんでした。 何か良い方法はないでしょうか?

  • Excel2003でデータを並べ替えたい

    以下のようなことがしたいです。 別ファイルに列を移動させて吐き出す、しょぼい質問ですがどなたかお助け下さい。 A列 B列 C列     ↓ C列 A列 B列

    • kokuryu
    • 回答数2