24周年

財(cái)稅實(shí)務(wù) 高薪就業(yè) 學(xué)歷教育
APP下載
APP下載新用戶(hù)掃碼下載
立享專(zhuān)屬優(yōu)惠

安卓版本:8.7.11 蘋(píng)果版本:8.7.11

開(kāi)發(fā)者:北京正保會(huì)計(jì)科技有限公司

應(yīng)用涉及權(quán)限:查看權(quán)限>

APP隱私政策:查看政策>

HD版本上線:點(diǎn)擊下載>

工作表中的小寫(xiě)字母都變成大寫(xiě)

來(lái)源: 讀者上傳 編輯: 2009/11/17 14:43:38  字體:

  請(qǐng)運(yùn)行以下程序:

  Sub ConvertToUpperCase()

  Dim Rng As Range

  Worksheets("Sheet1").UsedRange.Select

  For Each Rng In Selection.Cells

  If Rng.HasFormula = False Then

  Rng.value = UCase(Rng.value)

  End If

  Next Rng

  End Sub

責(zé)任編輯:zoe
回到頂部
折疊
網(wǎng)站地圖

Copyright © 2000 - odtgfuq.cn All Rights Reserved. 北京正保會(huì)計(jì)科技有限公司 版權(quán)所有

京B2-20200959 京ICP備20012371號(hào)-7 出版物經(jīng)營(yíng)許可證 京公網(wǎng)安備 11010802044457號(hào)