Ｐａｇｅ 299 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼はじめましてm(＿ ＿)m toku 02/11/5(火) 19:03 ┗Re:はじめましてm(＿ ＿)m ぴかる 02/11/5(火) 19:14 ┗Re:はじめましてm(＿ ＿)m りん 02/11/5(火) 20:58 ┗ぴかるさん、りんさんありがとうございます！ toku 02/11/6(水) 16:59 ─────────────────────────────────────── ■題名 ： はじめましてm(＿ ＿)m ■名前 ： toku ■日付 ： 02/11/5(火) 19:03 -------------------------------------------------------------------------
| あるセルの値が別のセルの値ととリンクしているので、表面上の値（テキスト値!?）にしたいのですがどうしたらよいものでしょうか。。。 ちなみにコレでは駄目でした。 ↓↓ ---------------------------------------- Cells(xx,xx).Value = Cells(xx,xx).text ---------------------------------------- xxには任意の場所を指定していたつもりです。 シートを丸ごとテキスト値に変換したいのです。 ループをかけてすべてのセルに１個ずつ変換していたのでは何時間もかかってしまいました。 何か良いアイデアをお願いいたします。 |
| tokuさん、こんにちは。 的外れだったら、ごめんなさい。数式セルを数値セルに置き換えると思いこんでです。 １．対象範囲をセレクトする。 ２．コピーを実行 ３．その位置で形式を選択(値)して貼り付けを実行 この操作をマクロ記録でどうでしょうか？。 |
| toku さん、ぴかる さん、こんばんわ。 >的外れだったら、ごめんなさい。数式セルを数値セルに置き換えると思いこんでです。 > >１．対象範囲をセレクトする。 >２．コピーを実行 >３．その位置で形式を選択(値)して貼り付けを実行 その方法もありますが、ストレートにこんなやりかたで。 >>シートを丸ごとテキスト値に変換したいのです。 >>ちなみにコレでは駄目でした。 >>↓↓ >>Cells(xx,xx).Value = Cells(xx,xx).text ↓ これで大丈夫なはずですが。 Cells(xx,xx).Value = Cells(xx,xx).Value せっかくなのでひと工夫。 Sub test() Dim r1 As Range On Error Resume Next '数式セルだけ対象 Set r1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) On Error GoTo 0 If Not r1 Is Nothing Then With r1 .Value = .Value End With Set r1 = Nothing End If End Sub こんな感じです。 |
| りんさんのはなんだか難しそうなので、ぴかるさんアイデアを参考にもうちょっと煮詰めていきたいと思います！ ちなみに、りんさんのそのコードをまんまコピると今日の日付だらけになってしまうので一瞬焦りました（Ｔ＿Ｔ） プログラミングって難しいですね。 |