🚀 go-pugleaf

Yuichi Morikawa (sgi-saga@fa2.so-net.ne.jp) wrote:
: $B$?$H$($P!"(Bsheet2$B$N(BA6$B$O(Bsheet1$B$N(BA7$B$r;2>H$9$k(B(="sheet1"!A7)$B$HF~NO$7$^$9!#(B
: sheet2$B$r%o!<%/%7!<%H$N%3%T!<$r9T$$$^$9!"$9$k$H(Bsheet3$B$N(BA6$B$O(B"sheet1"!A7$B$H(B
: $B$J$j$^$9!#(Bsheet$B$N;2>H$O@dBP;2>H$G$"$k$H8@$&$3$H$OJ,$+$j$^$7$?$,!"(B
: $B;d$O!"%o!<%/%7!<%H$r%3%T!<$7$?$i!"D>A0$N%7!<%H$N%;%k$r;2>H$7$?$$$H;W$C$F(B
: $B$$$^$9!#$D$^$j(Bsheet3$B$N(BA6$B$O(B"sheet2"!A7$B$K$7$?$$$N$G$9!#(B

$B!VD>A0$N!W$,2?$r0UL#$9$k$+<!Bh$G$9$h$M!#(B
$B%7!<%H$NL>A0$O$$$D$G$b!V(Bsheet1$B!W!V(Bsheet2$B!W$J$o$1$G$O$J$$$G$9$7!"(B
sheets$B%3%l%/%7%g%s$NE:;z$N=g$G$$$$$N$+$J(B?
$B$=$l$H$bJB$Y$?=gHV(B?

$B$b$7$=$&$G$O$J$/!V(Bsheet1$B!"(Bsheet2$B!W$H$$$&L>A0$K$D$$$??t;z$N=gHV$H$+$@$C$?$i!"(B
sheets($B%7!<%HL>(B)$B$H$9$k$H$3$m$K!V(B1$B$DA0!W$N%7!<%H$,;XDj$5$l$k$h$&$K$9$l$P(B
$B$$$$$o$1$G$9$M!#$?$H$($P%^%/%m$G(B
	Option Explicit

	Public Function PrevSheetName() As String
	    Dim s As String
	    Dim n As Integer
	    
	    s = ActiveSheet.Name
	    n = Len(s)
	    Mid$(s, n, 1) = CStr(CInt(Mid$(s, n, 1)) - 1)
	    PrevSheetName = s
	End Function
$B$_$?$$$K$d$C$F$b$$$$$G$9$,(B($B$3$l$O$$$^E,Ev$K=q$$$?$@$1$J$N$G%7!<%HL>$N:G8e$K(B
$B?t;z$,$D$$$F$F(B1$B!A(B9$B$N$H$-$7$+$A$c$s$HF0$-$^$;$s(B)$B!"(B
$B<B$O%^%/%m$J$s$+;H$o$J$/$F$b!"%;%k$NCf$N<0$G!VJ8;zNs$r;2>H$KJQ49$9$k!W4X?t$r(B
$BCN$C$F$$$l$P$G$-$A$c$$$^$9$M!#(B

  $B%X(B_$B%X(B   ________________________
$B%_!&!&(B $B%_(B  void@merope.opus.or.jp
 (  $B!k(B )$B!A(B            $BF|2<ItM[0l(B
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~