今日のテーマは、『アルバイト』です。『痛いニュースk∀`:接客業のアルバイトが若者の間で不人気』 ... あいつ、また何かやったのか…」 > 2007年12月13日 接客業のアルバイトが若者の間で不人気 1 名前： パーソナリティー大阪府 投稿日：2007/12/12水 13:27 ... 『アルバイト体験記＠taikenki.jp』 アルバイト体験記 @taikenki.jpであなたの興味のある アルバイト の体験記を発見！ スポンサードリンク フードのアルバイト ファーストフード 35 / ファミレス 24 / 弁当屋 5 / 喫茶店 6 / 居酒屋・バー 10 / パン ... 『「カラオケ店舗まねきねこ」の求人についてお聞きしま..』「カラオケ店舗まねきねこ」の求人についてお聞きします。求人広告を見て、履歴書を送っている東北地方の男です。
アルバイト（契約社員）で半年経過後、働き具合を見て評価されれば正社員になれるということでした。
実際アルバイトから正社員になられた方、今契約社員の方とか意見、社内状況等々分かれば教えてください。本当に社員になれるのでしょうか？契約社員時は夜勤専門みたいですが、かなり仕事がハードなんでしょうか？『学生・フリーターの方に質問です。 アルバイトを探す..』学生・フリーターの方に質問です。
アルバイトを探す際、何を一番重要視しますか？『秋葉原もしくは神田周辺で、 オススメのアルバイトも..』秋葉原もしくは神田周辺で、
オススメのアルバイトもしくは職場を探しています。
スペック:
18歳
男
フリーター
大検取得
スキル:
アクロバット
PHP,Javascriptを使ったサイト制作
アルバイト歴:
ライン製造
Webサイト制作
木工
引越し
配膳
なるべく働いている、
働いていた所でお願いします。『未来型インターネットビジネス』たったの２９００円で、直接ご紹介料とティア報酬が合計５段階＋再販権付きソフト多数があなたの物に！『未来型インターネットビジネス』たったの２９００円で、直接ご紹介料とティア報酬が合計５段階＋再販権付きソフト多数があなたの物に！
2010年4月18日日曜日
掲示板
今日のテーマは、『掲示板』です。『２ちゃんねる掲示板へようこそ』 ... 解説 more » 本文検索や検索設定をするには ログイン が必要です i-mode ○ 掲示板 ○ blog ○ ニュース ○ テレビ欄 ○ 過去ログ倉庫 β : 分散型携帯ビュア「orz」 ... 『予告.out - 予告ができる掲示板』ここは、みんなが楽しく、いろんな予告をする掲示板です！ ここに書いた予告は、 文字が画像の形式になっちゃう ので、サーチエンジンだとか、 2億円の ... 『以下の条件の掲示板システムを探しています。 ・サー..』以下の条件の掲示板システムを探しています。
・サーバーインストール式（無料＆有料）もしくはレンタル式（無料）
・レス型など日本で一般的な形式（フォーラムやツリー形式以外）
・必須入力項目を増やすことが可能
・利用者にあわせて、項目数の違う複数の入力画面を作ることができる
・項目数の違う複数の入力画面から投稿されたものが１個の掲示板上で同列に表示できる
以上です。
よろしくお願いいたします。『【C#.NET.NET Framework2.0】 DataGridViewでAccess..』【C#.NET.NET Framework2.0】
DataGridViewでAccessからデータ（文字列）を取得して表示しているのですが、
もとが掲示板CGI用に作成されたデータで、HTMLで一部を赤文字表示させるために
これを何らかの形で活用して、DataGridViewのセル内で
赤文字で表示するようなことは可能でしょうか。
例
データ：あいうえお かきくけこ
⇒「うえお」の部分のみを赤文字表示
※タグ文字
※データ内に「」や「 」という文字自体を表示すべきものはない。
※実現する上で
（ただし赤文字の始点と終点は変更不可）
ご存知の方がいらっしゃれば、ご教示ください。
よろしくお願いします。『次に当てはまるCMSを教えてください。 1 日本語での..』次に当てはまるCMSを教えてください。
1 日本語での情報提供者が多い
2 ユーザの投稿は、掲示板やフォーラムになされ、管理者によるそれへの返信という形ですすみ、管理者が許可するまで公開されない
3 投稿内容に応じて、管理者がユーザに対してポイントを付与できる
4 ポイントは、同じシステムに組み込まれたEコマースサイトで、1ポイント1円で使用できる
という機能を持っており、かつ、機能の拡張性が最も高いものは……『未来型インターネットビジネス』『未来型インターネットビジネス』
・サーバーインストール式（無料＆有料）もしくはレンタル式（無料）
・レス型など日本で一般的な形式（フォーラムやツリー形式以外）
・必須入力項目を増やすことが可能
・利用者にあわせて、項目数の違う複数の入力画面を作ることができる
・項目数の違う複数の入力画面から投稿されたものが１個の掲示板上で同列に表示できる
以上です。
よろしくお願いいたします。『【C#.NET.NET Framework2.0】 DataGridViewでAccess..』【C#.NET.NET Framework2.0】
DataGridViewでAccessからデータ（文字列）を取得して表示しているのですが、
もとが掲示板CGI用に作成されたデータで、HTMLで一部を赤文字表示させるために
これを何らかの形で活用して、DataGridViewのセル内で
赤文字で表示するようなことは可能でしょうか。
例
データ：あい
⇒「うえお」の部分のみを赤文字表示
※タグ文字
※データ内に「
※実現する上で
（ただし赤文字の始点と終点は変更不可）
ご存知の方がいらっしゃれば、ご教示ください。
よろしくお願いします。『次に当てはまるCMSを教えてください。 1 日本語での..』次に当てはまるCMSを教えてください。
1 日本語での情報提供者が多い
2 ユーザの投稿は、掲示板やフォーラムになされ、管理者によるそれへの返信という形ですすみ、管理者が許可するまで公開されない
3 投稿内容に応じて、管理者がユーザに対してポイントを付与できる
4 ポイントは、同じシステムに組み込まれたEコマースサイトで、1ポイント1円で使用できる
という機能を持っており、かつ、機能の拡張性が最も高いものは……『未来型インターネットビジネス』『未来型インターネットビジネス』
2010年4月17日土曜日
医療
今日のテーマは、『医療』です。『「姿勢性症候群」が増加中--「同じ姿勢」に医療関係者が警鐘:ニュース - CNET Japan』 ... ニュース » パーソナルテクノロジー 「姿勢性症候群」が増加中--「同じ姿勢」に医療関係者が警鐘 文：Stefanie Olsen（CNET News.com） 翻訳校正：尾本香里（編集部） 2006/05/18 ... 『東京都医療機関案内サービス“ひまわり”｜東京都内の医療機関をさがせます。』3556962 このサイトについて 医療機能情報提供制度について 医療機関の皆様へ （様式ダウンロード） ○医療機能情報の報告について ○医療機関のホームページへのリンク設定について サイトマップ >>お知らせ一覧 ... 『医療機関を受診したときのむかついたエピソードをお教..』医療機関を...『未来型インターネットビジネス』たったの２９００円で、直接ご紹介料とティア報酬が合計５段階＋再販権付きソフト多数があなたの物に！『未来型インターネットビジネス』たったの２９００円で、直接ご紹介料とティア報酬が合計５段階＋再販権付きソフト多数があなたの物に！
スポーツ
今日は、『スポーツ』について、いろいろな話題を集めてみました。『nikkansports.com』 ... ていないか無効になっています。詳しくは サイトポリシー をご覧ください。 日刊スポーツのニュースサイト、ニッカンスポーツ・コムです。 サイトのナビゲーションへ移動 このページの本文 ... 『[スポーツの正しい見方] テレビがスポーツを殺す。 石川遼 - goo スポーツ：NumberWeb -』 ... RSS ヘルプ メール ブログ goo ID 北京五輪 サッカー 野球 格闘技 モータースポーツ その他競技 競技一覧 ニュース 特集 バックナンバー スポーツ > その他の競技 > スポーツの正しい見方 > [スポーツの正しい見方] テレビがスポーツを殺す ... 『ここ一年位で、茨城県でのイベント（お店のオープンイ..』ここ一年位で、茨城県でのイベント（お店のオープンイベントやスポー...『未来型インターネットビジネス』たったの２９００円で、直接ご紹介料とティア報酬が合計５段階＋再販権付きソフト多数があなたの物に！『未来型インターネットビジネス』たったの２９００円で、直接ご紹介料とティア報酬が合計５段階＋再販権付きソフト多数があなたの物に！
ブログ
今日は、『ブログ』について、いろいろな話題を集めてみました。『生産的になろう（Aaron Swartz のブログから）』EmptyPage.jp > Translations > 生産的になろう（Aaron Swartz のブログから） Aaron Swartz さんのエッセイ、 HOWTO: Be more productive の日本語訳です。Aaron くんは、ティーンエージャーにして W3C の ... 『Seesaa ブログ - 無料のブログblogサービス』アカウント ｜ サインイン ｜ ヘルプ ： タグ検索 ポッドキャスト おすすめブログ 人気のブログ 新着投稿 ブログパーツ マイ・ブログ 新着投稿 もっと見る マジカルメーカーで写真を色々デコレート！ 記事ジャンル ポッドキャスト IT ショッピング ニュース ゲーム 地域 健康 ... 『ここ１，２ヶ月で、芸人さんのブログにて発表されてい..』ここ１，２ヶ月で、芸人さんのブログにて発表されていた、面白情報／どうでもいいニュースを調べています。
知名度は問いません！ 「誰々が～～にハマり始めている」「～～さん、実は○○らしい…」等々、下らなければ下らないほど嬉しいです!!『アフィリエイトで30万円以上稼いでいる人へ質問 皆さ..』アフィリエイトで30万円以上稼いでいる人へ質問
皆さんどんな感じで稼いでますか？
私はことし３月から始めて獲得賞金０円です！
seesaaブログで50サイト。全部amazonへのリンク。
Ninjaホームページで50サイト。全部楽天へのリンク。
と、コツコツ作業中です。
みなさん色々、教えて下さい！
間違いなく、いろいろなやり方があると思いますが。。。
知りたいなと思っているのは
１・サイトの数。無料のブログは何サイトとか、ドメインやサーバーは何サイトとか。
２・稼いでるパターン。物販だったらA8だよとか。
３・おすすめ商材やツール
４・おすすめサイト ※マニアックな感じがいいです
５・これからケータイサイトも始めたいのですがアドバイスなど
上記の他でも構わないので色々、教えて下さい。
宜しくお願いします！『■「なんの役に立つんですか？」の暴力性 - 森山さん..』■「なんの役に立つんですか？」の暴力性 - 森山さんのブログ
h
知名度は問いません！ 「誰々が～～にハマり始めている」「～～さん、実は○○らしい…」等々、下らなければ下らないほど嬉しいです!!『アフィリエイトで30万円以上稼いでいる人へ質問 皆さ..』アフィリエイトで30万円以上稼いでいる人へ質問
皆さんどんな感じで稼いでますか？
私はことし３月から始めて獲得賞金０円です！
seesaaブログで50サイト。全部amazonへのリンク。
Ninjaホームページで50サイト。全部楽天へのリンク。
と、コツコツ作業中です。
みなさん色々、教えて下さい！
間違いなく、いろいろなやり方があると思いますが。。。
知りたいなと思っているのは
１・サイトの数。無料のブログは何サイトとか、ドメインやサーバーは何サイトとか。
２・稼いでるパターン。物販だったらA8だよとか。
３・おすすめ商材やツール
４・おすすめサイト ※マニアックな感じがいいです
５・これからケータイサイトも始めたいのですがアドバイスなど
上記の他でも構わないので色々、教えて下さい。
宜しくお願いします！『■「なんの役に立つんですか？」の暴力性 - 森山さん..』■「なんの役に立つんですか？」の暴力性 - 森山さんのブログ
h
2009年7月1日水曜日
自動画像配置
今回は、指定したフォルダーのJPGファイルをEXCELシートに自動配置するプログラムです。
マニュアル作成に、威力を発揮するのではないでしょうか？
下図は、実行した結果できたEXCELシートです。
Public Sub 自動画像配置()
On Error Resume Next
Dim Rtn As Integer, i As Integer, j As Integer, f As Integer, wPos As Integer
Dim wFiles() As String
Dim wFile As String, wPath As String, wNewFile As String
Rtn = MsgBox("自動画像配置を実行しますか？", vbQuestion + vbYesNo)
If Rtn = vbNo Then
Exit Sub
End If
'フォルダー選択
wFile = InputFolder("画像ファイルのあるフォルダーを選択", , , , "マイ コンピュータ")
If wFile = "" Or wFile = "False" Then
Application.StatusBar = "処理をキャンセルしました。"
Exit Sub
Else
wPath = wFile
End If
'ファイル名の入力
wFile = InputBox("EXCEL出力ファイル名を入力して下さい。", "自動画像配置", "自動画像配置")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'新しいシート（ブック）を追加する
Sheets.Add
Cells.Select
Range("A13").Activate
Selection.ColumnWidth = 2
'文字書式を設定する
Selection.NumberFormatLocal = "@"
'ふぉるだー配下のJPGファイルを取得する
Call GetFiles(wPath, "*.jpg", wFiles())
i = 1
j = 0
'該当ファイル
For f = 0 To UBound(wFiles)
'項番挿入
j = j + 1
Range("A" & i).Select
ActiveCell.FormulaR1C1 = j
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "ＸＸＸＸＸＸ"
'図形挿入
Range("B" & i + 4).Select
ActiveSheet.Pictures.Insert(wFiles(f)).Select
Selection.ShapeRange.ScaleWidth 0.59, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
'項番挿入
j = j + 1
Range("A" & i + 32).Select
ActiveCell.FormulaR1C1 = j
Range("B" & i + 32).Select
ActiveCell.FormulaR1C1 = "ＸＸＸＸＸＸ"
'図形挿入
f = f + 1
Range("B" & i + 36).Select
ActiveSheet.Pictures.Insert(wFiles(f)).Select
Selection.ShapeRange.ScaleWidth 0.59, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
ActiveWindow.LargeScroll ToRight:=-1
'改頁
i = i + 64
Range("A" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next
wPath = ActiveWorkbook.Path
Sheets("自動画像配置").Select
Sheets("自動画像配置").Copy
Sheets("自動画像配置").Select
Sheets("自動画像配置").Name = wFile
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&P/&N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.62992125984252)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.669291338582677)
.BottomMargin = Application.InchesToPoints(0.275590551181102)
.HeaderMargin = Application.InchesToPoints(0.433070866141732)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 98
.FitToPagesWide = 1
.FitToPagesTall = False
End With
wNewFile = ActiveWorkbook.Name
'現在のシートをファイル保存
Workbooks(wNewFile).SaveAs Filename:=wPath & "\" & wFile & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Workbooks(wFile & ".xls").Close
Sheets("自動画像配置").Select
ActiveWindow.SelectedSheets.Delete
Sheets("雛形").Select
Sheets("雛形").Name = "自動画像配置"
Sheets("自動画像配置").Select
Sheets("自動画像配置").Copy After:=Sheets(1)
Sheets("自動画像配置 (2)").Select
Sheets("自動画像配置 (2)").Name = "雛形"
Sheets("自動画像配置").Select
ActiveWorkbook.SaveAs
Workbooks.Open Filename:=wPath & "\" & wFile & ".xls"
Application.StatusBar = "自動画像配置処理が終了しました。"
Application.DisplayAlerts = True
End Sub
ところで、ナンデモ動画サイト EcoTubeというサイトを見つけたのですが、このサイト、結構、お勧めです。
それでは！
マニュアル作成に、威力を発揮するのではないでしょうか？
下図は、実行した結果できたEXCELシートです。
Public Sub 自動画像配置()
On Error Resume Next
Dim Rtn As Integer, i As Integer, j As Integer, f As Integer, wPos As Integer
Dim wFiles() As String
Dim wFile As String, wPath As String, wNewFile As String
Rtn = MsgBox("自動画像配置を実行しますか？", vbQuestion + vbYesNo)
If Rtn = vbNo Then
Exit Sub
End If
'フォルダー選択
wFile = InputFolder("画像ファイルのあるフォルダーを選択", , , , "マイ コンピュータ")
If wFile = "" Or wFile = "False" Then
Application.StatusBar = "処理をキャンセルしました。"
Exit Sub
Else
wPath = wFile
End If
'ファイル名の入力
wFile = InputBox("EXCEL出力ファイル名を入力して下さい。", "自動画像配置", "自動画像配置")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'新しいシート（ブック）を追加する
Sheets.Add
Cells.Select
Range("A13").Activate
Selection.ColumnWidth = 2
'文字書式を設定する
Selection.NumberFormatLocal = "@"
'ふぉるだー配下のJPGファイルを取得する
Call GetFiles(wPath, "*.jpg", wFiles())
i = 1
j = 0
'該当ファイル
For f = 0 To UBound(wFiles)
'項番挿入
j = j + 1
Range("A" & i).Select
ActiveCell.FormulaR1C1 = j
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "ＸＸＸＸＸＸ"
'図形挿入
Range("B" & i + 4).Select
ActiveSheet.Pictures.Insert(wFiles(f)).Select
Selection.ShapeRange.ScaleWidth 0.59, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
'項番挿入
j = j + 1
Range("A" & i + 32).Select
ActiveCell.FormulaR1C1 = j
Range("B" & i + 32).Select
ActiveCell.FormulaR1C1 = "ＸＸＸＸＸＸ"
'図形挿入
f = f + 1
Range("B" & i + 36).Select
ActiveSheet.Pictures.Insert(wFiles(f)).Select
Selection.ShapeRange.ScaleWidth 0.59, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
ActiveWindow.LargeScroll ToRight:=-1
'改頁
i = i + 64
Range("A" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next
wPath = ActiveWorkbook.Path
Sheets("自動画像配置").Select
Sheets("自動画像配置").Copy
Sheets("自動画像配置").Select
Sheets("自動画像配置").Name = wFile
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&P/&N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.62992125984252)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.669291338582677)
.BottomMargin = Application.InchesToPoints(0.275590551181102)
.HeaderMargin = Application.InchesToPoints(0.433070866141732)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 98
.FitToPagesWide = 1
.FitToPagesTall = False
End With
wNewFile = ActiveWorkbook.Name
'現在のシートをファイル保存
Workbooks(wNewFile).SaveAs Filename:=wPath & "\" & wFile & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Workbooks(wFile & ".xls").Close
Sheets("自動画像配置").Select
ActiveWindow.SelectedSheets.Delete
Sheets("雛形").Select
Sheets("雛形").Name = "自動画像配置"
Sheets("自動画像配置").Select
Sheets("自動画像配置").Copy After:=Sheets(1)
Sheets("自動画像配置 (2)").Select
Sheets("自動画像配置 (2)").Name = "雛形"
Sheets("自動画像配置").Select
ActiveWorkbook.SaveAs
Workbooks.Open Filename:=wPath & "\" & wFile & ".xls"
Application.StatusBar = "自動画像配置処理が終了しました。"
Application.DisplayAlerts = True
End Sub
ところで、ナンデモ動画サイト EcoTubeというサイトを見つけたのですが、このサイト、結構、お勧めです。
それでは！
登録:
投稿 (Atom)