ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¤À¨É

[¤À¨É] ¤À¨É

¥H¤UTest,°õ¦æ¤@¦¸,activesheet­^¤å¥þ³¡§ï¬°"¤j·¢,¦A°õ¦æ¤@¦¸­^¤å¥þ³¡§ï¬°"¤p·¢"
Sub LUcase(A As Boolean)
Dim R As Range
Dim R1 As Range
Dim R2 As Range
Dim cell As Range
Dim cell1 As Range

For Each cell In ActiveSheet.UsedRange.Areas
    Set R1 = cell.Resize(, 1)
    Set R2 = cell.Resize(1)
    If A = True Then
        cell = Evaluate("IF(ROW(" & R1.Address & "),iF(COLUMN(" & _
            R2.Address & "),upper(" & cell.Address & ")))")
    Else
        cell = Evaluate("IF(ROW(" & R1.Address & "),iF(COLUMN(" & _
            R2.Address & "),lower(" & cell.Address & ")))")
    End If
Next cell
End Sub

Sub test()
Static A As Boolean
LUcase A
A = Not A
End Sub
lmh

¦^´_ 1# mhl9mhl9
²¤Æ¤@¤U
  1. Option Explicit
  2. Sub Ex()
  3.      Dim E As Range
  4.      Static A As Boolean
  5.      For Each E In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
  6.         E = IIf(A, UCase(E), LCase(E))
  7.      Next
  8.      A = Not A
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

GBKEE,ÁÂÁ´£¨Ñ²©ö¤èªk,«Ü¦n¥Î,¦ýusedrange«Ü¤j®É«ÜºC(§Úªº­Ó®×110000¦æ¸ê®Æ),ÁÙ¬OÁÂÁÂ
lmh

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD