Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38370 / 76732 ←次へ | 前へ→

【43500】Re:よくわからない
回答  Kein  - 06/10/17(火) 17:58 -

引用なし
パスワード
   右クリックイベントを使うと、便利になります。コードは


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
  With Target
   If .Areas.Count <> 2 Then Exit Sub
   If .Areas(1).Count = 1 Or .Areas(2).Count > 1 Then
     Exit Sub
   End If
   With .Areas(1)
     If WorksheetFunction.CountA(.Cells) < 2 Then
      Exit Sub
     End If
     If .Columns.Count > 1 Then
      If .Rows.Count > 1 Then Exit Sub
     End If
     If .Rows.Count > 1 Then
      If .Columns.Count > 1 Then Exit Sub
     End If
     Cancel = True
     .Copy
   End With
  End With
  On Error Resume Next
  ActiveCell.PasteSpecial Transpose:=True
  Application.CutCopyMode = False
End Sub

初めに、縦でも横でも複数のセル(値が2つ以上入力されていること)を選択し、
Ctrlキーを押しながら貼り付け先のセルを一つ選択、そのまま右クリック
してみて下さい。コピー元のセル範囲が縦一列なら一行に、横一行なら一列に
行列変換して貼り付けることが出来ます。

0 hits

【25725】よくわからない mari 05/6/12(日) 8:34 質問
【25726】Re:よくわからない かみちゃん 05/6/12(日) 9:54 回答
【25727】Re:よくわからない 小僧 05/6/12(日) 10:13 回答
【43497】Re:よくわからない まいける 06/10/17(火) 16:19 回答
【43499】Re:よくわからない Jaka 06/10/17(火) 17:18 発言
【43500】Re:よくわからない Kein 06/10/17(火) 17:58 回答

38370 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free