Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150314205014]]
- #score: 9211
- @digest: 9663bda840be4986eee2aa37ae6f9b93
- @id: 67507
- @mdate: 2015-03-14T13:19:04Z
- @size: 2662
- @type: text/plain
- #keywords: scrollrow (23391), mytitle (15272), 員参 (12932), mymsg (8396), activewindow (7691), mybtn (7500), 加者 (7368), 括消 (7264), 簿") (7115), 面制 (6766), 丁重 (6058), 揺れ (4888), 様mo (3889), 委員 (3621), 参加 (3526), 者名 (2890), 名簿 (2474), 全デ (2177), 消去 (1969), vbexclamation (1805), 導有 (1769), 授有 (1727), vbyesno (1223), clearcontents (1192), 差異 (1148), 去す (1134), screenupdating (1078), q3 (1053), る() (836), ナ様 (682), 機会 (652), 一括 (619)
- 『画面が少しゆれる』（keiji）
お教え下さい。 シートをまたいでの一括消去を作成しました。 ハイパーリンクの あいうえお 表示の部分がどうしても少し揺れます。 画面制御コードも入れてありますが、上手くいきません。 宜しくご教授お願いいたします。 Sub 消去する() Application.ScreenUpdating = False Dim myBtn As Integer Dim myMsg As String, myTitle As String myMsg = "全データを削除しますか?" & vbCrLf & _ "削除されたデータは元には戻りません。" myTitle = "RESET?" myBtn = MsgBox(myMsg, vbYesNo + vbExclamation, myTitle) If myBtn = vbYes Then Range("F11:O502").Select ActiveWindow.ScrollRow = 496 ActiveWindow.ScrollRow = 485 ActiveWindow.ScrollRow = 461 ActiveWindow.ScrollRow = 360 ActiveWindow.ScrollRow = 288 ActiveWindow.ScrollRow = 159 ActiveWindow.ScrollRow = 45 ActiveWindow.ScrollRow = 11 Range("F11:O502,F7:O7").Select Range("F7").Activate Sheets("委員 参加者名簿").Select Range("Q3,Q3:Z30").Select ActiveWindow.ScrollRow = 9 ActiveWindow.ScrollRow = 8 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 5 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 2 ActiveWindow.ScrollRow = 1 Selection.ClearContents Range("Q3").Select Sheets("かるがも参加者名簿").Select Selection.ClearContents Range("F11").Select Application.ScreenUpdating = True End If End Sub ＜ 使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- とりあえす、マクロ記録の結果を下のように編集しましょう。 要らない部分も消してみましょう。 Sheets("シート名").Range("消したい範囲").ClearContents （マナ） 2015/03/14(土) 21:44 ---- 大量の ScrollRow は何のためにしているのでしょうか? 下記のコードだと、現状と差異がありますか? (マクロを実行したシートが「かるがも参加者名簿」である前提のコードです。) Sub 消去する() Dim myMsg As String, myTitle As String myMsg = "全データを削除しますか?" & vbCrLf & _ "削除されたデータは元には戻りません。" myTitle = "RESET?" If MsgBox(myMsg, vbYesNo + vbExclamation, myTitle) = vbYes Then Application.ScreenUpdating = False Sheets("委員 参加者名簿").Range("Q3,Q3:Z30").ClearContents Sheets("かるがも参加者名簿").Range("F11:O502,F7:O7").ClearContents Application.ScreenUpdating = True End If End Sub （Mook） 2015/03/14(土) 21:45 ---- マナ 様 MooK 様 ご教授有難うございました。 完璧に画面の揺れが収まりました。 一括消去も全く問題ありません。 丁重なご指導有難うございました。 これを機会に基本を勉強してまいります。 （keiji） 2015/03/14(土) 22:19... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150314205014.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608268 words.
訪問者：