(現在 過去ログ66 を表示中)

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■10146 / inTopicNo.1)  コマンドボタンで最終行にジャンプさせたい
  
□投稿者/ Vision Maker -(2016/10/06(Thu) 08:15:14)
    Windows7 桐10 Excel2010 です

    質問したいことが2つあります。

    仕訳表にデータを入れています。

    最終行にジャンプしたのち、エクセルからデータをコピー貼り付けています。


    1.コマンドボタンにて終端にジャンプするように指定しているのに効かない

    ちなみに、入力という道具箱にあることと同じことをコマンドボタンでしたいということです。

    2.エクセルデータ(CSV)データをはりつけるのに、いつも編集してはりつけCSVを選択してはりつけています。

    この過程をもっと短くできる方法がないでしょうか。

    この質問は以前にも質問したことがあります。

    フォームを作ってからとのご指導をいただいておりました。


    どなたか、どちらでもいいので教えていただけないでしょうか。

    尚、それは、無理だよという回答でもかまいません。

    よろしくお願いします。

1475709314.zip
/72KB
引用返信 [メール受信/OFF] 削除キー/
■10148 / inTopicNo.2)  Re[1]:機能名は自分自身のフォームに対して作用するものです
□投稿者/ ONnoji -(2016/10/06(Thu) 09:57:01)
    2016/10/06(Thu) 09:59:17 編集(投稿者)

    > 1.コマンドボタンにて終端にジャンプするように指定しているのに効かない

    コマンドボタン:cmd仕訳帳1

       機能名     機能パラーメータリスト
    [1]表示
    [2]開く      "仕分起動.tbx"
    [3]ジャンプ    終端
    [4]なし

    機能名は自分自身のフォームに対して作用するものです。

    従って機能名[3]の[ジャンプ 終端]も自分自身のフォームの編集対象表に対して作用します。
    ※ちなみに、"損益計算書風家計簿.WFX"は編集対象表が無い NULLフォームですから、当然ジャンプはできません。

    機能名[3]の[ジャンプ 終端]が"仕分起動.tbx" で実行されることを期待していると思いますが、

    コマンドボタンの機能で、他の表を開くことはできますが、その表を操作することはできません。

    "仕分起動.tbx" が開いた後のことは、"仕分起動.tbx"自身に任せるのが自然です。

    もしも、"仕分起動.tbx"を編集対象表とするフォームがあるのならば、

    機能名[2]開くで"仕分起動.tbx"を編集対象表とするフォームを開き、

    その開いたフォームの[開始時]実行コマンドボタンの機能で[ジャンプ 終端]を実行すればOKです。



引用返信 [メール受信/OFF] 削除キー/
■10149 / inTopicNo.3)  Re[1]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ たゆー -(2016/10/06(Thu) 10:12:28)
    >1.コマンドボタンにて終端にジャンプするように指定しているのに効かない
    すでに説明が紹介されてますが、使い方は
    別表を開いたとき、自表を閉じるときなど、「閉じる」など利用します

    > 2.エクセルデータ(CSV)データをはりつけるのに、いつも・・・
    そうですね。桐の読み込みは、「表・テキスト・K3・CSV」なので
    直接「xls」はできません
    方法として、「xls」を、桐表に変換後読み込む。または、事前に
    csv形式ファイルを作成しておく等の準備が必要です

    イベント・一括処理の利用が可能でしたら、
    「エクセル」コマンドで、そのまま「xls」から読み込み可能です

引用返信 [メール受信/OFF] 削除キー/
■10150 / inTopicNo.4)  Re[2]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ たゆー -(2016/10/06(Thu) 10:22:38)
    参考までに、
    もしイベントや一括処理で試される場合は

     エクセル  <ワークブック名>,\
     <ワークシート名>,\
     ・・・・・
     終了状態 = <変数名>

    このように終了状態をつけておくと、もしうまく行かなかった場合に原因追及の
    参考になります。

引用返信 [メール受信/OFF] 削除キー/
■10152 / inTopicNo.5)  Re[1]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ 通りすがり -(2016/10/06(Thu) 19:41:07)
    こんな感じ
548×258 => 250×117

vison3.PNG
/18KB
引用返信 [メール受信/OFF] 削除キー/
■10153 / inTopicNo.6)  Re[1]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ 今村 誠 -(2016/10/06(Thu) 21:30:30)
    Vision Makerさんこんにちは
    > 最終行にジャンプしたのち、エクセルからデータをコピー貼り付けています。
    > この過程をもっと短くできる方法がないでしょうか。
    直接フォームを開きボタンを押すと動作すると思います。
    一括処理からだと動作保障は出来ません。
    こういう場合、表で仕訳帳を編集するのでなくフォームで編集する
    のでしたら、普通にボタンに読み込みするだけなので簡単です。
    仕事上いろいろ表を作りますが、表で入力するより、フォームの方が
    見通しもよいし、期間指定などでもカレンダーフォームを使って自由な
    日付を検索や絞込みが出来るので便利ですよ。
    表だけで入力するのは、運賃表とか勘定科目一覧など、不変なものは
    フォームの必要はないかもしれません。

    サンプルにはフォームとイベントだけなのでエクセルの表や仕訳.tbx
    はご自分のを使ってください。
    サンプルは必ず解凍後に展開してください。

siwake.zip
/9KB
引用返信 [メール受信/OFF] 削除キー/
■10154 / inTopicNo.7)  Re[2]: :機能名は自分自身のフォームに対して作用するものです
□投稿者/ Vision Maker -(2016/10/06(Thu) 23:00:24)
    ONnojiさん

    ありがとうございます。

    いままでの謎がとけてなるほどとわかりました。

    とても勉強になりました。
引用返信 [メール受信/OFF] 削除キー/
■10155 / inTopicNo.8)  Re[3]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ Vision Maker -(2016/10/06(Thu) 23:02:42)
    たゆーさん

    ありがとうございます。

    エクセル読込チャレンジしたいと思います。

    試した結果はまた発表したいと思います。
引用返信 [メール受信/OFF] 削除キー/
■10156 / inTopicNo.9)  Re[2]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ Vision Maker -(2016/10/06(Thu) 23:04:13)
    通りすがりさん

    ありがとうございます。

    自分がやりたいことが実現できました。
解決済み!
引用返信 [メール受信/OFF] 削除キー/
■10158 / inTopicNo.10)  Re[2]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ Vision Maker -(2016/10/06(Thu) 23:08:20)
    今村 誠さん

    ありがとうございます。

    プログラムだけは、ちょっと見ましたが

    休暇中に試してみたいと思います。

    結果は、後日報告いたします。
引用返信 [メール受信/OFF] 削除キー/
■10160 / inTopicNo.11)  Re[3]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ Vision Maker -(2016/10/08(Sat) 05:08:33)
    2016/10/08(Sat) 21:33:28 編集(投稿者)
    2016/10/08(Sat) 05:52:23 編集(投稿者)
    2016/10/08(Sat) 05:31:49 編集(投稿者)

    今村 誠さん

    試してみました。
    私のデータでは、作動しなかったため、
    プログラムを若干変更(レベルダウン)しました。
    このプログラムの中には、
    桐質問掲示板で学習されている方の参考になるものが
    たくさんあると思いました。
    私の作動したものを添付いたします。
    尚、初心者の方に説明します。
    1.フォームから起動します。
    2.エクセルファイルBook1を選択します。

    ありがとうございました。
解決済み!

1475870913.zip
/25KB
引用返信 [メール受信/OFF] 削除キー/
■10162 / inTopicNo.12)  Re[4]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ 今村 誠 -(2016/10/08(Sat) 09:26:51)
    2016/10/08(Sat) 13:52:24 編集(投稿者)

    Vision Makerさんこんにちは
    とりあえず気づいた部分だけ時間が取れたら後ほど

    項目属性変更 変更 ,"F1" { "ID" , "カウント" }

    カウンタ型なのにカウントでも動作するのにびっくり
    私は桐が付加するカウンタをあえて読まないようにしたのですが
    同一番号があった場合どう動作するか興味があります。
    ためにしエクセルのA列に1からの連続番号を振ってテストした
    いところですが、エクセルがないので簡単なテストも出来ません
    お暇なときでも結果を教えてください。
引用返信 [メール受信/OFF] 削除キー/
■10163 / inTopicNo.13)  Re[5]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ Vision Maker -(2016/10/08(Sat) 14:57:06)
    今村 誠さん こんにちは。

    カウンタでしたか、間違えてカウントで入力していたのですね。
    言われたことを試してみました。
    まず、イベント処理はそのままでエクセルのIDは7から始めたものを入れたみました。
    結果は1から始まるものになっています。
    ちなみにカウンタと変えてみましたが結果は一緒でした。
    参考として読み込んだ結果を画像にしました。3回実行しています。

813×400 => 250×123

1475906226.png
/21KB
引用返信 [メール受信/OFF] 削除キー/
■10164 / inTopicNo.14)  Re[1]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ eo -(2016/10/09(Sun) 17:56:17)
    はじめましてeoと申します。
    桐だけでは完結しませんが xlsx=>txt に変換するソフトで『xdoc2txt』があります。(エクセルは必要ありません)
    タブ区切りで変換されたtxtを桐で処理するってどうでしょうか?
    xlsxファイルをまとめて処理するがコンセプトです。(カッケ−^^;)
    添付されているデータを元にサンプル作成しました。
    解決済のようですが興味があればお試しください。

    ■Book1.xlsx=>変換=>txtBook1.txt

    [Sheet2]
     2015/9/3 食費 バナナ他 1600 ○○○○バリュー 現金 1600 
     2015/9/5 その他の支出 プレゼント負担 1200 ○○○○バリュー 現金 1200 
     2015/9/4 教養・娯楽 DVDレンタル 1000 ツタ○ 現金 1000 
     2015/9/6 生活用品 ボールペン他 500 ○○文房具店 現金 500 
     2015/9/8 食費 パン他 900 ○○屋 現金 900 
     2015/9/9 医療費 ひざ 2000 ○○外科医院 現金 2000 
     2015/9/12 交際費 花 1500 ○○屋 現金 1500 
     2015/9/10 食費 シリアル他 3000 ○○商店 現金 3000 

     黄色部分をコピー貼り付け 

    ■xdoc2tx.cmx

    変数宣言 固有,文字列{&xdoc2txt,&para,&xlsx,&txt},数値{&i}

    &xdoc2txt="c:\xdoc2txt\xdoc2txt.exe" /* 自分の環境に */
    &para=" -f "
    &xlsx="*.xlsx"

    システム &xdoc2txt,&para+&xlsx

    表 "yomi.tbx"
    編集表 "yomi.tbx"
    行削除 *,圧縮
    &i=0
     繰り返し
      &i=&i+1
      &txt=#ファイル検索("*.txt",&i)
      条件 ( "" = &txt) 繰り返し中止
      ジャンプ 行番号=終端
      読み込み テキスト,&txt,区切り="09",項目名=しない,*
     繰り返し終了
    絞り込み [借方科目]{=""}
    行削除 *
    絞り込み解除 *
    表整理
    終了 表 編集対象表

    表 "仕訳起動.tbx"
    編集表 "仕訳起動.tbx"
    行削除 *,圧縮
    ジャンプ 行番号=終端
    読み込み 表,"yomi.tbx",*
    ジャンプ 行番号=先頭
    表形式編集




xdoc2txt.zip
/48KB
引用返信 [メール受信/OFF] 削除キー/
■10166 / inTopicNo.15)  Re[2]: コマンドボタンで最終行にジャンプさせたい
□投稿者/ Vision Maker -(2016/10/09(Sun) 20:40:23)
    2016/10/10(Mon) 10:22:57 編集(投稿者)
    2016/10/09(Sun) 20:47:27 編集(投稿者)
    2016/10/09(Sun) 20:42:18 編集(投稿者)

    eoさん こんにちは。

    試してみました。

    たくさんのデータを一気に読み込むのですね。

    内容は、まだ理解できませんが、す・ご・いですね。

    ありがとうございます。

    初心者の方のためにフォルダの画像をのせます。
解決済み!
578×278 => 250×120

1476013223.png
/68KB
引用返信 [メール受信/OFF] 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Mode/  Pass/

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -