だいぶ前から手作りの猫用首輪を売っている「そらりす」というネットショップでちょくちょく首輪を買っていたのですが
新しいのが欲しくなりアクセスした所繋がらない…
もう辞めちゃったのかなぁ、なかなかあのクオリティのお店無いのに😭
新しいお店探さないとなぁ
- 前ページ
- 次ページ
近所のWattsに美容院帰りに寄ったんですが可愛いの見つけた
これ系の前にセリアとかで見たけどこのデザインは初めて見た、これは可愛い
今はコードバンドは入用ではないので必要になったら買ってみる
ちなみにこの間買ったお布団はというと
好評です
調査データを記載するブックを作ったのですが、記載者が関連資料からコピペしてきた際に書式までもってくるので見た目が酷い事に・・・・
「値で貼り付けてね、お願いしてもたまにやるので強硬手段に」
まず参考にしたサイト
Excelで値のみを貼り付ける（フォーマットを防ぐ）ように制限するにはどうすればよいですか？
ここの
VBAコードで値のみを貼り付ける（フォーマットを防ぐ）ように制限する
に着目
ブックのVBAScript内「 ThisWorkBook 」に下記を張り付けるだけ
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub
お手軽・・・だけど、コピーしてセルでクリックすると即貼り付いてしまう間違えて貼り付ける要因になりそう、「戻る」で戻せないし次に参照したサイト【Excel VBA】値のみ貼り付けをデフォルトにする
ここは目からウロコ、マクロをctrl+vに設定する事でctrl+vで貼り付けるときに
値で貼り付けを強制するｗ
これええやん！と思ったので早速実行
Sub COPY_DEF()
'
Dim cbCopy As Variant 'コピーした値
Dim clipOjt As New DataObject
'
cbCopy = ""
'
With clipOjt
.GetFromClipboard 'クリップボードからデータオブジェクトへ値を渡す
cbCopy = .GetText 'データオブジェクトのデータを変数に入れる
End With
'
ActiveCell = cbCopy '選択したセルに値を入れる
'
End Sub
これを同じく ThisWorkBook に記載、気を付ける点は ツール＞参照設定 で、
「Microsoft Forms 2.0 Object Library」にチェックが入っていないと
コンパイルエラーになります
さっそくやってみたのですがいい感じ！右クリックして形式選択貼り付けすれば
従来通りでも貼り付けできるし
ただ・・・・
ん？なんか改行入ってない？
これはちょっといただけないなって事で改造
参考サイト
【VBA】無駄な改行コードを削除【ReplaceとCleanがあります】
ここの WorksheetFunction.Clean を使います
元のコードの
ActiveCell = cbCopy '選択したセルに値を入れる
を
ActiveCell = WorksheetFunction.Clean(cbCopy) '選択したセルに値を入れる
に書き換え、すると
いい感じ～～～～！！
しばらくこれで様子見ながら運用してみます。