日本語プログラミング言語なでしこの公式掲示板

なでしこ の 掲示板

トップ 最新 新規 検索 公式

new2019-02-16 14:51:07 -土 曜-

625 : Re:Re:Re:Re:Re:Re:Re:Re:Re:異なる複数のエクセルシートから一つのシートにデータを貼り付けたい - たなか さん


やってみました。できました😄
変数の理解がなかったですね。
有難うございます。本当に助かりました❤

(編集パスワード送信)

子記事

親記事 (No.615)
返信した記事(元) (No.624)

この内容(No.625)に返信

この内容(No.625)をダウンロード

この内容(No.625)のテキスト表示


new2019-02-16 10:24:05 -土 曜-

624 : Re:Re:Re:Re:Re:Re:Re:Re:異なる複数のエクセルシートから一つのシートにデータを貼り付けたい - 雪乃☆雫 さん


 sheet1~sheet3は変わらずで、ALLだけ一列ずらすとゆうことでいいですか?
 「エクセルセル名取得」命令は、行,列を数字で指定して、「A3」みたいなエクセルのセル名を取得するための命令なんです。
 (「3,1でエクセルセル名取得」の結果が「A3」になります。行列の順番が逆なのでご注意~)

 27行目を「C=12*(回数-1)+3」と直したのは正解で、このCは、何列目に貼り付けるのかを数えた計算結果を入れる変数です。
 とゆうわけで、28行目のCは、見た目はCでも、実際には何列目かを現す数値の入った変数になっています。
 Bにしちゃったら、Bとゆう変数は存在しないので、エラーになっちゃう。

 Cって変数名がよろしくなかったですかねぇ~;;;
 エクセルの列Cと、混同しちゃってるんですよね。
 一時的になんか数えるときにワタシがよく使うのがCで、タブンCountのCだと思うんですけどね。
 「列数」とかにしてみちゃう?
#-----------------------------------------------
「*.xls;.xlsx」のファイル選択
もしそれが空ならば
  終了
違えば
  対象ファイル名はそれ

エクセル起動
「{対象ファイル名}」をエクセル開く

シート番号=1。

必要の間
  シート番号にエクセルシート注目。
  エクセルシート名取得。
  もし、それ=「ALL」ならば、抜ける。

  「D3:O33」をエクセル選択。
  エクセルコピー。

  「ALL」にエクセルシート注目。
  列数=12*(回数-1)+3。          #ここで何列目に貼り付けるか数えてる。
  貼付先=3,列数でエクセルセル名取得。  #結果を代入して貼り付け位置のセル名を取得。
  貼付先をエクセル選択。
  エクセル貼り付け。

  シート番号=シート番号+1。

//対象ファイル名にエクセル保存。
//エクセル終了。
#-----------------------------------------------


(編集パスワード送信)

子記事

親記事 (No.615)
返信した記事(元) (No.623)

この内容(No.624)に返信

この内容(No.624)をダウンロード

この内容(No.624)のテキスト表示




new2019-02-16 08:06:27 -土 曜-

623 : Re:Re:Re:Re:Re:Re:Re:異なる複数のエクセルシートから一つのシートにデータを貼り付けたい - たなか さん


雪乃☆雫 さん
先日は、有難うございました。
色々と試してみて、わからないことがでてきました。ALLへの貼付け位置は選択できるのでしょうか。
例えばですが、ALLのファイルを参考2のように、一列ずらして下記の通り書き換えてみましたが、うまく行きません。
「エクセルセル取得」の方法を理解していないようです。



#-----------------------------------------------
「*.xls;.xlsx」のファイル選択
もしそれが空ならば
  終了
違えば
  対象ファイル名はそれ

エクセル起動
「{対象ファイル名}」をエクセル開く

シート番号=1。

必要の間
  #①前のコードと同様、無限ループ内でシート番号を1ずつ増やしながら、「ALL」のシートに到達するまで処理を繰り返します。
  シート番号にエクセルシート注目。
  エクセルシート名取得。
  もし、それ=「ALL」ならば、抜ける。

  #②ふつーにコピー。今回の添付ファイルでデータの入っていた領域を選択範囲に指定しています。
  「D3:O33」をエクセル選択。
  エクセルコピー。

  #③ALLのシートに移動して、ふつーに貼付け。今回のCは貼付け先が何列目になるかを計算しています。
  # 一応せつめいすると、項目数が12で、(回数-1)とゆうのは、「間」命令の「回数」のカウントは、
  #スタートが1だから-1して0スタートにして掛けてやると、そのシートの貼り付け位置が分かるって寸法です。
  #前三列はタイトルなので4を足してます。
  「ALL」にエクセルシート注目。
  C=12*(回数-1)+3。
  貼付先=3,Bでエクセルセル名取得。
  貼付先をエクセル選択。
  エクセル貼り付け。

  シート番号=シート番号+1。

//対象ファイル名にエクセル保存。
//エクセル終了。
#-----------------------------------------------
 




(編集パスワード送信)

子記事

親記事 (No.615)
返信した記事(元) (No.622)

この内容(No.623)に返信

この内容(No.623)をダウンロード

この内容(No.623)のテキスト表示

◎ 画像ファイル


2019-02-11 23:36:25 -月 曜-

622 : Re:Re:Re:Re:Re:Re:異なる複数のエクセルシートから一つのシートにデータを貼り付けたい - たなか さん


雪乃☆雫 さん
やってみたら、できました!
感謝感激です😄丁寧な説明もありがたいです。
まだ理解できていない部分もありますが、ちょっと考えてみますm(_ _)m

(編集パスワード送信)

子記事

親記事 (No.615)
返信した記事(元) (No.621)

この内容(No.622)に返信

この内容(No.622)をダウンロード

この内容(No.622)のテキスト表示


2019-02-09 06:46:06 -土 曜-

621 : Re:Re:Re:Re:Re:異なる複数のエクセルシートから一つのシートにデータを貼り付けたい - 雪乃☆雫 さん


 おぉう、なでしこファイルにエクセルのファイルが添付出来るとわ!
 前回、無駄に難しく考えてしまったけど、ふつーにコピペの手順で出来ましたw
 しかも、エクセル最右列取得なる命令があることも発覚して、何もあんな風にどこまでデータ入ってるか数えることは無かった(´・ω・`) 
#-----------------------------------------------
「*.xls;.xlsx」のファイル選択
もしそれが空ならば
  終了
違えば
  対象ファイル名はそれ

エクセル起動
「{対象ファイル名}」をエクセル開く

シート番号=1。

必要の間
  #①前のコードと同様、無限ループ内でシート番号を1ずつ増やしながら、「ALL」のシートに到達するまで処理を繰り返します。
  シート番号にエクセルシート注目。
  エクセルシート名取得。
  もし、それ=「ALL」ならば、抜ける。

  #②ふつーにコピー。今回の添付ファイルでデータの入っていた領域を選択範囲に指定しています。
  「D3:O33」をエクセル選択。
  エクセルコピー。

  #③ALLのシートに移動して、ふつーに貼付け。今回のCは貼付け先が何列目になるかを計算しています。
  # 一応せつめいすると、項目数が12で、(回数-1)とゆうのは、「間」命令の「回数」のカウントは、
  #スタートが1だから-1して0スタートにして掛けてやると、そのシートの貼り付け位置が分かるって寸法です。
  #前三列はタイトルなので4を足してます。
  「ALL」にエクセルシート注目。
  C=12*(回数-1)+4。
  貼付先=3,Cでエクセルセル名取得。
  貼付先をエクセル選択。
  エクセル貼り付け。

  シート番号=シート番号+1。

//対象ファイル名にエクセル保存。
//エクセル終了。
#-----------------------------------------------


(編集パスワード送信)

子記事

親記事 (No.615)
返信した記事(元) (No.620)

この内容(No.621)に返信

この内容(No.621)をダウンロード

この内容(No.621)のテキスト表示


戻る < < < > > > 次へ




www.eznavi.net