chào langtuchungtinh360,
tôi có một vài góp ý cho tập tin và code của bạn.
1, cách đặt tên: Bạn hãy nhìn vào cửa sổ sau
bạn sẽ cảm thấy như thế nào?
_ không nên đặt tên tiếng việt có dấu. đây là lỗi mà nhiều bạn mới bước vào con đường code thường gặp phải. Trên diễn đàn cũng có nhiều bài viết nói về vấn đề này.
_ nên đặt tên theo dạng:
trangtinh01
_ ngoài ra tên module cũng nên đặt tên theo tiếp đầu ngữ. Ví dụ:
mmain (tức là module chính, hoặc tiếng việt là mchinh)
2, cách sắp xếp code:
_ nên đưa các code có chức năng tương tự nhau vào một module. Ví dụ module tôi upload lên theo bài viết này (chú ý: Tôi đã chuyển qua tập tin text .txt)
3, nên tìm trước khi hỏi và đặt câu hỏi như thế nào để có người sẽ trợ giúp cho bạn
_ nên tìm hiểu hoặc tham khảo các code đã có sẵn trên diễn đàn.
http://www.giaiphapexcel.com/forum/f...adp-tr%c3%acnh
_ để thực hiện nhanh bạn tham khảo code sau: (cũng đã có trong thư viện code --> điều này chứng tỏ bạn chẳng tham khảo hoặc tìm kiếm trước khi hỏi)
http://www.giaiphapexcel.com/forum/s...7a-b%e1%ba%a1n
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shCore.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAppleScript.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAS3.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushBash.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushColdFusion.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCpp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCSharp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCss.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDelphi.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDiff.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushErlang.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushGroovy.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJava.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJavaFx.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJScript.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPerl.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPhp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPlain.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPowerShell.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPython.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushRuby.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSass.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushScala.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSql.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushVb.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushXml.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>
<link type="text/css" rel="stylesheet" href="/forum/vctinh_xcode/styles/shCoreDefault.css">
<link type="text/css" rel="Stylesheet" href="/forum/vctinh_xcode/styles/shThemeDefault.css">
<pre class="brush: vb; toolbar: false;">
option explicit
public glb_origcalculationmode as integer
sub speedon(optional statusbarmsg as string = "running macro...")
' chú ý: ở đây các bạn có thể thay đổi thông báo
' bằng cách truyền vào chuổi unicode vào biến statusbarmsg
glb_origcalculationmode = application.calculation
with application
.calculation = xlcalculationmanual
.screenupdating = false
.enableevents = false
.displayalerts = false
.cursor = xlwait
.statusbar = statusbarmsg
.enablecancelkey = xlerrorhandler
end with
end sub
sub speedoff()
with application
.calculation = glb_origcalculationmode
.screenupdating = true
.enableevents = true
.displayalerts = true
.calculatebeforesave = true
.cursor = xldefault
.statusbar = false
.enablecancelkey = xlinterrupt
end with
end sub
sub fillslow()
dim c as range, r as range, starttime, endtime
set r = range("a1:c1000")
r.clearcontents
starttime = timer
for each c in r
c.select
c.formula = "=row()*column()"
next c
doevents
endtime = timer
msgbox "total time: " & endtime - starttime
[a1].select
end sub
sub fillfast()
dim c as range, r as range, starttime, endtime
set r = range("a1:c1000")
r.clearcontents
starttime = timer
on error goto resetspeed
speedon
for each c in r
c.select
c.formula = "=row()*column()"
next c
doevents
endtime = timer
msgbox "total time: " & endtime - starttime
[a1].select
resetspeed:
Speedoff
end sub
</pre>
<script type="text/javascript">
function path()
{
var args = arguments,
result = []
;
for(var i = 0; i < args.length; i++)
result.push(args[i].replace('@', '/forum/vctinh_xcode/scripts/'));
return result;
};
SyntaxHighlighter.autoloader.apply(null, path(
'applescript @shBrushAppleScript.js',
'actionscript3 as3 @shBrushAS3.js',
'ahk autohotkey @shBrushAhk.js',
'asm x86 @shBrushAsm.js',
'bash shell @shBrushBash.js',
'coldfusion cf @shBrushColdFusion.js',
'cpp c @shBrushCpp.js',
'c# c-sharp csharp @shBrushCSharp.js',
'css @shBrushCss.js',
'delphi pascal @shBrushDelphi.js',
'diff patch pas @shBrushDiff.js',
'erl erlang @shBrushErlang.js',
'groovy @shBrushGroovy.js',
'java @shBrushJava.js',
'jfx javafx @shBrushJavaFX.js',
'js jscript javascript @shBrushJScript.js',
'perl pl @shBrushPerl.js',
'php @shBrushPhp.js',
'text plain @shBrushPlain.js',
'py python @shBrushPython.js',
'ruby rails ror rb @shBrushRuby.js',
'sass scss @shBrushSass.js',
'scala @shBrushScala.js',
'sql SQL @shBrushSql.js',
'vb vbnet vba @shBrushVb.js',
'xml xhtml xslt html @shBrushXml.js'
));
SyntaxHighlighter.config.stripBrs = true;
SyntaxHighlighter.all();
</script>
bạn chỉ việc gọi tên thủ tục
speedon trước khi thực hiện và
speedoff sau khi thực hiện.
Lê văn duyệt
Trả lời kèm Trích dẫn
Gửi bởi langtuchungtinh360
