過去ログ

                                Page     428
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼excelのセルの値ををクリップボードにコピーする関数  mrrclb48z 16/10/11(火) 23:34
   ┗(追加)  mrrclb48z 16/10/14(金) 23:31
      ┗Re:(追加)  半沢直樹 16/10/17(月) 22:33

 ───────────────────────────────────────
 ■題名 : excelのセルの値ををクリップボードにコピーする関数
 ■名前 : mrrclb48z
 ■日付 : 16/10/11(火) 23:34
 -------------------------------------------------------------------------
   'jwとともにお使い下さい。
'最前面でポーズもおすすめです。
'http://so-zou.jp/software/pause/
'ーーーーーーーーーーーーーーーー
'セルA1  7
'セルA2  8
'セルA3=計算式 =A1+A2
'セルA4=計算式 =ex2cl(A3)
'excelのセルの値ををクリップボードにコピーする関数
'https://teratail.com/questions/50143
'Word VBA クリップボードから
'http://townpage.goo.ne.jp/qa.php?qa_id=8942245&qa_best_flag=1&qa_order=asc
Function ex2cl(rngCpy As Range)
Application.Volatile
myClipboardIn (Cells(rngCpy.Row, rngCpy.Column).Value)
ex2cl = Cells(rngCpy.Row, rngCpy.Column).Value & "をクリップ"
End Function
Sub myClipboardIn(x)
Dim myData As New DataObject
myData.SetText x
myData.PutInClipboard
End Sub

 ───────────────────────────────────────  ■題名 : (追加)  ■名前 : mrrclb48z  ■日付 : 16/10/14(金) 23:31  -------------------------------------------------------------------------
   TJ様に教えてもらいました。
http://www.jwcad.net/bbs2/c-board.cgi?cmd=one;no=49459;id=004
多摩川お笑いでじたる研究所さんのTPasteなどいかがでしょうか?
http://tamalabo.wiki.fc2.com/wiki/Tclip

 ───────────────────────────────────────  ■題名 : Re:(追加)  ■名前 : 半沢直樹  ■日付 : 16/10/17(月) 22:33  -------------------------------------------------------------------------
   ちなみに、そこにあります。Jmacroでは
Jmacro.exe スラッシュJT
でクリップボードの文字を、任意位置に書き込む一歩前の状態になります。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 428