[[20060904092539]]　『シートの雰囲気を出す』（みみみ）　ページの最後に飛ぶ

『シートの雰囲気を出す』（みみみ）
おはようございます。エクセルの質問をする以前の質問で申し訳ございません。質問する際に皆様が、右方向にabcd…下方向に123…とかかれ、そして数値を入力されてますよね。私がそれをこの質問のページに書き込んで、プレビューで確認しますと、ぐちゃぐちゃになってしまいイメージ通りにいきませんが、どうすれば一見して列、行がわかるようになるのでしょうか？

 おはようございます＾＾
 書き込む際、半角スペースを１つ入れてから書き込みされるとキレイにいきますよ。
 このスレッドを返信・編集でご覧になってみてください。
 私の書き込みと、みみみさんの書き込みを見比べて、整形にチャレンジ♪
(かなれっと)

 できました♪
 ありがとうございました。

 もうひとつｂ
 エクセルのシートからコピペすると、Tab区切りもそのまま反映されますよ～
 (ROUGE)

 選択セルのデータを、セルアドレス付きでクリップボード
 に取込むVBAサンプルです。

 ' 参照設定：Microsoft Forms 2.0 Object Library
 Sub sentaku()
  Dim selrowcnt As Long
  Dim selcolcnt As Long
  Dim i As Long
  Dim j As Long
  Dim k As Long
  Dim kitenrng As Range
  Dim mystr As String
  Dim myad As String
  Dim mytext As Object
   Set kitenrng = Selection.Resize(1, 1)
   selrowcnt = Selection.Rows.Count
   selcolcnt = Selection.Columns.Count
   mystr = mystr & vbTab
    For k = 1 To selcolcnt
     myad = Split(kitenrng.Offset(, k - 1).Address, "$")(1)
     mystr = mystr & myad
      If k <> selcolcnt Then mystr = mystr & vbTab
    Next k
    mystr = mystr & vbCrLf
    For i = 1 To selrowcnt
     For j = 1 To selcolcnt
      If j = 1 Then mystr = mystr & kitenrng.Offset(i - 1, j - 1).Row & vbTab
      mystr = mystr & kitenrng.Offset(i - 1, j - 1).Formula
      If j <> selcolcnt Then mystr = mystr & vbTab
      If j = selcolcnt Then mystr = mystr & vbCrLf
     Next j
    Next i
    Set mytext = New DataObject
    mytext.SetText mystr
    mytext.PutInClipboard
 End Sub
 (MARBIN)

 >右方向にabcd…下方向に123…とかかれ、そして数値を入力されてますよね
 私の場合はExcelに１行目のB1からA・・・D、2行目のA2から1,品名・・・金額と入力し、
 セル範囲A1:E5をコピーして、メモ帳(エディタ)に貼付けて文書を書いています。

 下のように貼付けて、表の上の行の先頭(つまりこの行の先頭)に半角スペースを入れます。
	A	B	C	D
1	品名	単価	数量	金額
2	みかん	100	10	1000
3	りんご	200	11	2200
4	なし	300	12	3600
 このようにして書いたものを投稿欄へコピーして貼付けます。
 すると、「返信・編集」画面からExcelへコピペするとうまい具合に配置されます。
 細かく言うと、1行目と1列目は不要なので削除しないと行けませんけど・・・

 このようなことをしているので、スペースを複数使って整形された表は扱いづらかったりします(^^;)
 　　(Hatch)

 たくさんの方からのお返事ありがとうございます。
 VBAって万能なのですね。。
 これから色んな事を勉強していきたいです。（みみみ）

コメント返信：

[ 一覧(最新更新順) ]

[[20060904092539]] 『シートの雰囲気を出す』（みみみ） ページの最後に飛ぶ

[[20060904092539]]　『シートの雰囲気を出す』（みみみ）　ページの最後に飛ぶ